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PREFACE 


This publication contains information required by system and 
application programmers to use the data management access method 
functions of MVS/Extended Architecture Data Facility Product, 
Program Number 5665-284. It describes and defines the data 
management macro instructions—except for VSAM (virtual storage 
access method)—available in the assembler language. See 
•'Related Publications” on page iv for the related VSAM 
publications. 


QR &m izMim 


This publication is divided into these parts: 

• "Introduction” on page 1 defines and discusses macro 
instructions and the rules to be followed when when coding 
them, and the notational conventions used throughout the 
publication. 

• "Macro Instruction Descriptions" on page 8 defines and 
discusses the functions of each macro instruction and how 
each must be coded. The macro instructions are presented in 
alphabetic order. The standard form of each is described 
first, followed by the list and execute forms. The list and 
execute forms are available only for those macro 
instructions that pass parameters in a list. 

• Appendix A, "Status Information Following an Input/Output 
Operation" on page 190, defines and discusses the location, 
alignment, and description of the symbolic fields in the 
data event control block and the event control block. 

• Appendix B, "Data Management Macro Instructions Available by 
Access Method" on page 202, defines and discusses the macro 
instructions available for each of the data management 
access methods. 

• Appendix C, "Device Capacities" on page 203, defines and 
discusses device capacities as a guide to coding the block 
size and logical record length operands in the DCB macro 
instruction. 

• Appendix D, "DCB Exit List Format and Contents" on page 206 , 
defines and discusses the format and content of the data 
control block exit list. 

• Appendix E, "Control Characters" on page 208, defines and 
discusses the control characters used to control spacing and 
skipping (printers) and stacker selection (card read punch 
or card punch). 

• Appendix F, "Data Control Block Symbolic Field Names" on 
page 211, defines and discusses the location, alignment, and 
description of the data control block symbolic field names. 

• Appendix G, "PDABD Symbolic Field Names" on page 228, 
defines and discusses the location, alignment, and 
description of the PDABD dummy control section. 

• "Glossary of Terms and Abbreviations" on page 229 defines 
and discusses the definitions of the terms and abbreviations 
used in this publication. 
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PR E REQUISITE ..KNO W LE DG E 


To use this book you must have knowledge of assembler language 
as described in A.ssgm. h lsc_ti_y elisi o n 2 Appl ic at io n .Progr a mming-. 
Language Reference , GC26-4037, and As sem bler H Ve r s io n 2 
Application Programming! Guide , SC26-4036, and of job control 
language CJCL) as explained in MVS/Extended Architecture JCL 
User's Guide , GC28-1351, and MVS/Extended Architecture JCL 
Rsfenencs, GC28-1352. 

If you know how to write assembler language programs and use job 
control statements, you can use this book and MVS/Extended 
Ar ch itect u re Da ta Admi ni s tration Gu ide, GC26-4013, to write 
programs that create and process data sets. 


REQUIRED PUBLICATIONS 

You should be familiar with the information presented in the 
following publications: 

• Assembler H Version 2 Application Programming: Language 
Reference, GC26-4037 

• Assembler H Version 2 Application Programming: Guide , 
SC26-4036 

• MV SL^Ex t e n.d ed .A r_c. hi t e ct u r.e _Da .t a_.Admi.ni a tral is n __Guide, 

GC26-4013 

• M V 5 / Exte o dedJ\.rohi±e£fe re-System Pro gra m mi n g_L i bra ry . ; . 
Supervisor Services and Macro Instructions , GC28-1154 

• MV-S/Ex t end ed. Ar ch itect ure JC L Use r's gu ide, GC28-1351 

• MVS/Extended Architecture JCL Reference , GC28-1352 


REL ATE D PV g.LICA T .IQ N S 


Within the text, references are made to the publications listed 
in the table below: 


Short Title 

Publication Title 

Order 

Number 

Assembler H V2 
Application 
Programming: 

Guide 

Assembler H Version 2 
ARB.licatiQn.±npgi:amminai 

Guide 

SC26-4036 

Assembler H V2 
Application 
Programming: 
Language 

Reference 

Ass.e.mblec_H_yersion 2 
A.PBlicat3,a.n-£nggrammiD.gi. 
Language Reference 

GC26-4037 

Checkpoint/Restart 
User*s Guide 

MVS/Extended Architecture 
Ghec-Reci n V Resta.c±„Uasnls 
Guide 

GC26-4012 

Conversion 

Notebook 

MVS/Extended Architecture 

C.o nversicrL.H otebook 

GC28-1143 

Data 

Administration 

Guide 

MVS/Extended Architecture 

Data Administration Guide 

GC26-4013 
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Short Title 


Publication Title 


IBM 3262 Model 5 1BEL.:1 26 2-Madel 5 Pri n t er 

Printer Product Product Description 

Description 


IBM 3800 Printing IM..5 M Q. Pri nting Sub s ystem 
Subsystem Programmer's Guide 

Programmer's 
Guide 


IBM 3800 Printing 
Subsystem 
Programmer's 
Guide 


IBM 3800 Printing Subsystem 
Models 3 and 8 Programmer's 
gui de 


IBM 3890 Document 
Processor Machine 
and Programming 
Description 


IM-MIQ. D oc ument.Proces s or 
Machine and Programming 
Description 


IBM 4245 Printer 
Model 1 Component 
Description and 
Operator's Guide 


IBM 4245 Printer Model 1 
Component Description and 
.Qpaca.tPX.'-S.-.g.Mi. d e-. 


IBM 4248 Printer 
Model 1 


IBM 4248 Pr inter M o d el 1 


order 

Number 


GA24-3936 


GC26-3846 


SH35-0061 


GA24-3612 


GA33-1541 


GA24-3927 


Description 


Initialization 
and Tuning 


MVS/Extended Architecture 
£ys.tetH-Pr-gar e mming_,Lib ra ryi 
Ini t i a lis a ti o n a n d . Tu ning 


GC28-1149 


JCL User's Guide 


MYS/Extended. Ar.shi tect u r e 

JCL User's Guide 


GC28-1351 


JCL Reference 


MV S /Ext end e d-A.rghi- t a.c t ur.e 
JC L Refe r e n ce 


Magnetic Tape 
Labels and File 
Structure 
Administration 


MVS/ Extanded„Ar£hiias.±ucjS 
Magnet i c- Tape L ab e ls an d 
F ile . Struct u r e 
A dm inistratio n 


Open/Close/EOV MYS/Extaaded Architecture 

Logic Open/Close/EOV Logic 


OS/VS IBM 3886 
Optical Character 
Reader Model 1 


QS/ V S I BM 59 8.6. . O p t ic a l 

Character Reader Model 1 

Referanc-e 


Reference 


GC28-1352 


GC26-4003 


LY26-3966 


GC24-5101 


OS/VS Mass 
Storage System 
(MSS) Planning 
Guide 


OS/VS Mass 
Storage System 
(MSS) Services: 
General 
Information 


OS/VS Mass 
Storage System 
(MSS) Extensions 
Services: 
Reference 


OS/VS Mass Storage System 

(MS S) Pl anning Qu ids 


GC35-0011 


Q S / VS Mas s St or a ge Sys tem 
(MSS) Services: General 
I nfo rm a t i o n 


GC35-0016 


OS/VS Mass Storage System 
( MS S) .Extensions Services: 
Reference 


SH35-0036 
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SUMMAR Y.O F .C H A NGE? 


| R ELEASE.,! tjg,LI g .RARY,. UR PATE i - J A NUAR Y 1 98 7 

| SERVICE CHANGES 


Information has been added, corrected, or deleted to reflect 
technical service changes. 


RELEASE l t .2> F EPR U AR Y . 1 98A 

This publication, formerly titled MV.SZEx.te.n.de.d..Ar.g.hitecty re ..J ?at a 

Mana.ge.jn e n t .M a cr o ....I n s t r u c t i q ns * is now titled M V S/ E xt e n ded 

ArjdiiuteiLtujie, D at a.. Administratio n« M acr q... Instruc.t i on . R ef e re n ce . 


NEW PROGRAMMING SUPPORT 

This manual has been updated to reflect the following features 
for ISO/ANSI/FIPS magnetic tape labels: 

• A maximum block size limit of 2048 bytes. 

• The RECFM parameter of the the DCB macro no longer supports 
undefined record formats. 

• A new variable-length spanned data set record format for 
ISO/ANSI/FIPS data sets. 

Other support information consists of magnetic tape label 
symmetry restrictions 

Modifications have been made to the SETPRT macro to support the 
IBM 3800 Model 3 Printer in Model 1 compatibility mode. 


NEW ENHANCEMENTS 


Modifications have been made to the SETPRT macro to support the 
IBM 4248 Printer. 

Note: The IBM 3262 Model 5 Printer is afforded the same support 
as that provided for the IBM 4248 Printer. However, the use of 
an IBM 3262 Model 5 Printer dictates that entries exist in the 
IBM 4248 Printer UCS Image Table for the IBM 3262 Model 5 
Printer band(s)/ alias(es) used on the host system. These image 
table entries must be generated by the user as part of the IBM 
3262 Model 5 installation procedure. 


RELEASE1«1#OCTOBER 1983 


NEW DEVICE SUPPORT 

• Modifications have been made to the SETPRT macro to support 

the IBM 3800 Model 3 Printer in compatibility mode. 

• Modifications have been made to the section called 

"Magnetic-Tape Units" to support the IBM 3430 Magnetic Tape 
Unit. 

• Modifications have been made to the SETPRT macro to support 
the IBM 4245 Printer. 
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Before using this publication, familiarize yourself with the 
information in Data Administration Guide . 

IBM provides a set of macro instructions so that you can 
communicate service requests to the data management access 
method routines. These macro instructions are available only 
when the assembler language is being used/ and they are 
processed by the assembler program using macro definitions 
supplied by IBM and placed in the macro library when the 
operating system is generated. 

The assembler program expands each macro instruction into 
executable/ assembler language instructions or data/ and shows 
you the exact macro expansion in the assembler listing. The 
executable instructions generally consist of branches around 
data fields/ load register instructions/ and either branch 
instructions or supervisor calls (SVC) that transfer control to 
the proper program. The data fields in each macro instruction 
are parameters that are passed to the access method routine. 

You can use the utility program IEBPTPCH to get a list of macro 
definitions from SYS1.MACLIB, the library in which the macro 
definitions are stored. For a description of IEBPTPCH/ see 
Utilities . 

Before coding programs that request supervisor services/ 
familiarize yourself with the information contained in 

Also, if you are 

writing programs for specialized applications such as 
telecommunications, graphics, character recognition, or to use 
VSAM (virtual storage access method), use the appropriate 
publication listed in the preface that describes the specific 
access method and/or device type you are working with. 

The operation of some macro instructions depends on the options 
selected when the macro instruction is coded. For these macro 
instructions, either separate descriptions are provided or the 
differences are listed within a single description. If no 
differences are explicitly listed, none exist. The description 
of each macro instruction starts on a right-hand page; the 
descriptions that do not apply to the access methods being used 
can be removed. Appendix B, "Data Management Macro Instructions 
Available by Access Method” on page 202 lists the macro 
instructions available for each access method. 


I S . Q ANIL£ IP_.£_JL A B E JLS 

This publication refers to tape labels defined by the 
International Organization for Standardization (ISO), the 
American National Standards Institute (ANSI), and the Federal 
Information Processing Standard (FIPS). In general, 
ISO/ANSI/FIPS labels are similar to IBM standard labels, and, 
unless otherwise specified, the term "standard label," refers to 
both IBM standard labels and ISO/ANSI/FIPS standard labels. ISO 
labeled tapes are coded in the Organization Standard Code for 
Information Interchange (ISCII), and ANSI labeled tapes are 
coded in the American National Standards Code for Information 
Interchange (ASCII), while IBM labeled tapes are coded either in 
the extended binary-coded-decimal interchange code (EBCDIC) or 
in binary coded decimal (BCD). For further information about 

ISO/ANSI/FIPS labels, see M a.9 fi e. t ig .T a pe Labe l s and , File 

5-tr-y-g.t.yr.e • 
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BOLD TYPE 


Bold type is used for elements that you must code exactly as 
they are shown. These elements consist of macro names, 
keywords, and these punctuation symbols: commas, parentheses, 
and equal signs. Examples: 

• DOB 

• CLOSE f 11 >TYPE = T 

• MACRF=(PL,PTC) 

• SK,5 


UNDERSCORED LOWERCASE LETTERS 

Underscored lowercase letters are used for elements for which 
you code values that you choose, usually according to 
specifications and limits described for each parameter. 
Examples: 

• mifflbJSC 

• iro a g fe zi d 

• ssm it 


BRACKETS 

Brackets, l ], enclose optional elements that you may or may not 
code as you choose. Examples: 

• tisnstibl 

• CMF=E] 

OR SIGN 

The OR sign, I, separates alternative elements. Examples: 

• l ,REREAD I f LEAVE1 

• [leoathl'S'J 

BRACES 


Braces, £ }, enclose alternative elements from which you must 
choose one, and only one, element. Examples: 

• BFTEK=£S|AJ 

• £K|DJ 

• {ad.dnfi.ss 1 s 1 0 } 

Sometimes, alternative elements (especially complicated 
alternatives) are grouped in a vertical stack of braces. 

Example: 

MACRF=££(R E C|P 3)J 
{ (WCC | P | L3 )} 

{(RIClfHICl)}} 

In the examples above, you must choose only one element from the 
vertical stack. 
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ELLIPSES 


Ellipses* •••; indicate that elements may be repeated. 
Example: 

• (dskaddc* t(o pti ons) 1 >• •.) 


UNDERSCORED BOLD 

Underscored BOLD elements indicate alternative choices that are 
assumed if you don't want to code the optional element. 

Examples: 

• [EROPT={ACC|SKPI ABE !3 

• CBFALN=CF|D}3 

BLANK SYMBOL 


The blank symbol* b* indicates omitted operands. Example: 


b 


PDAB 


b 


COMPREHENSIVE EXAMPLE 

• MF= IE, tari d E BS SIc 13}) 

In this example* MF=(E> must be coded exactly as shown. 

Then* either address or (1) must be coded. (The parentheses 
around the 1 are required.) Finally* the closing 
parenthesis must be coded. Thus* MF=(E*(1)) might be coded. 

• RECFM={{UCT3[A|M3} 

CVCB|SIT|BS|BT3IA|M3} 

CDIB3IA3} 

{FIB|S|T|BS|BT3CA|M3JJ . 


In this example* you must first choose one of the four 
alternative elements shown on each line. Then* you must 
choose one of the major elements. Assuming you selected the 
major element beginning with F* you would code F; then you 
could choose one of B* S* T* BS* or BT. Finally* you could 
select either A or M. Thus* you might code any one of the 
following: RECFM=FBTM* RECFM=FA, or RECFM=F. 


M£R!IL^ 

Data management macro instructions are subject to the rules of 
assembler language and are written in the following format: 


Name 

Operation 

Operands 

Comments 

Symbol or 
blank 

Macro name 

None* one or more 
operands separated 
by commas 
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Use the operands to specify services and options you need and 
code them according to the following general rules? 

• If the operand you select is shown in bold capital letters 
(for example? MACRF=WL)? code the operand exactly as shown. 

• If the operand you select is a character string in bold type 
(for example? if the type operand of a READ macro 
instruction is SF)? code the operand exactly as shown. 

• If the operand is shown in underscored lowercase letters 
(for example? deb address )? substitute the indicated 
address? name? or value. 

• If the operand is a combination of bold capital letters and 
underscored lowercase letters (for example? LRECL= absexp )? 
code the capital letters and equal sign exactly as shown and 
substitute the appropriate address? name? or value for the 
underscored lowercase letters. 

• Code commas and parentheses exactly as shown. 

Note: Omit the comma that follows the last operand in a 

statement. Brackets and braces show how to use commas and 
parentheses the same way they show how to use operands. 

• Several macro instructions contain the designation , S I . Use 
the apostrophe on both sides of the S operand. 

If you need to substitute a name? value? or address? the 
notation you use depends on the operand you are coding. The 
following two examples show how an operand can be coded? 

DDNAME= S ymbsil 

In this example? you can only code a valid 
assembler-language symbol for the operand. 

ddaL,a d .dCfigS—RX-Type Address? (2-12)? or (1) 

In the above example? you can substitute an RX-type 
address? any general register 2 through 12? or general 
register 1. 

The following examples show what each notation means and how you 
can code an operand: 

symfaQ.1 

This notation indicates that the operand can be any valid 
assembler—language symbol. 

dfi^djnaJL-d A .git 

This notation indicates that the operand can be any decimal 
digit up to the maximum value allowed for the specific 
operand. 

( 2 - 12 ) 

This notation indicates that the operand can be any of the 
general registers 2 through 12. All register operands must 
be coded in parentheses; for example? if you code register 
5? use the form (£). If you want to use one of the 
registers 2 through 12/ code it as a decimal digit? a 
symbol (equated to a decimal digit)? or an expression that 
yields a value of 2 through 12. 

(D 

When this notation is shown? general register 1 can be used 
as an operand. The register can be specified as a decimal 
digit 1 enclosed in parentheses. When register 1 is used 
as an operand? the instruction that loads the parameter 
value into the register is not included in the macro 
expansion. 

cm 

When this notation is shown? general register £ can be used 
as an operand. The register can be specified as a decimal 
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digit H enclosed in parentheses. When register J3, is used 
as an operand, the instruction that loads the parameter 
value into the register is not included in the macro 
expansion. 

RX-Tvpe Address 

When this notation is shown, the operand can be specified 
as any valid assemblei—language RX-type address. The 
following shows examples of each valid RX-type address* 


Name 

Operation 

Operand 

ALPHA1 

L 

1,39(4,10) 

ALPHA2 

L 

REG1,39(4,TEN) 

BETA1 

L 

2,ZETA(4) 

BETA2 

L 

REG2,ZETA(REG4) 

GAMMA1 

L 

2,ZETA 

GAMMA2 

L 

REG2,ZETA 

GAMMA3 

L 

2,=F'1000' 

LAMBDA1 

L 

3,20(,5) 


Both ALPHA instructions specify explicit addresses; REG1 
and TEN are absolute symbols. Both BETA instructions 
specify implied addresses, and both use index registers. 
Indexing is omitted from the GAMMA instructions. GAMMA1 
and GAMMA2 specify implied addresses. The second operand 
of GAMMAS is a literal. LAMBDA1 specifies an explicit 
address with no indexing. 


A-Ty pe . Addres s 

When this notation is shown, the operand can be specified 
as any address that can be written as a valid 
assemblei—language A-type address constant. An A-type 
address constant can be written as an absolute value, a 
relocatable symbol, or a relocatable expression. Operands 
that require an A~type address are inserted into an A-fype 
address constant during the macro expansion process. For 
more details about A-type address constants, see Assembler 

H .V s i rs i o n.2 p p .11 * 

afas e xp 

When this notation is shown, the operand can be an absolute 
value or expression. An absolute expression can be an 
absolute term or an arithmetic combination of absolute 
terms. An absolute term can be a nonrelocatable symbol, a 
self-defining term, or the length attribute reference. For 
more details about absolute expressions, see Assembler H 

P r o g r amm i ng i 


When this notation is shown, the operand can be a 
relocatable symbol or expression. A relocatable symbol or 
expression is one whose value changes by n if the program 
in which it appears is relocated n bytes away from its 
originally assigned area of storage. For more details 
about relocatable symbols and expressions, see Assembler H 
ltg.rsifln._2-Ap pl i. ga tio n.. Prog ramming i La n g - 


RULES FOR REGISTER USAGE 

Many macro instruction expansions include instructions that use 
a base register previously defined by a USING statement. The 
USING statement must establish addressability so that macro 
expansion can include a branch around the in-line parameter 
list, if present, and see the data fields and addresses 
specified in the macro instruction operands. 

Macro instructions that use a BAL or BALR instruction to pass 
control to an access method routine, normally require that 
register 13 contain the address of an 18-word register-save 
area. The READ, WRITE, CHECK, GET, and PUT macro instructions 
are of this type. 
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Macro instructions that use a supervisor call (SVC) instruction 
to pass control to an access method routine may modify general f 

registers 0, 1, 14, and 15 without restoring them. Unless {, 

otherwise specified in the macro instruction description, the ^ ^ 

contents of these registers are undefined when the system 
returns control to the problem program. 

When an operand is specified as a register, the problem program 
must have inserted the value or address to be used into the 
register as follows: 

• Unless the macro instruction description states otherwise, 
and the register is to contain a value, that value must be 
placed in the low-order portion of the register. Any unused 
bits in the register should be set to zero. 

• If the register is to contain a 21-bit address, the address 
must be placed in the low-order three bytes of the register, 
and the high-order byte of the register should be set to 
zero. 

• If the register is to contain a 31-bit address, the address 
must be placed in the low-order 31 bits of the register, and 
the high-order bit of the register should be set to zero. 

Note that, if the macro instruction accepts the RX-type address, 
the high-order byte of a register can be efficiently cleared by 
coding the parameter as 0 (reg) rather than merely as (reg). 1 
Then the macro instruction expands as: 

LA parmreg,0(reg) by macro 

rather than: 

LA reg,0(reg) by user 

and 

LR parmreg,reg by macro 


RULES FOR CONTINUATION LINES 

The operand field of a macro instruction can be continued on one 

or more additional lines as follows* 

1. Enter a continuation character (not blank, and not part of 
the operand coding) in column 72 of the line. 

2. Continue the operand field on the next line, starting in 
column 16. All columns to the left of column 16 must be 
blank. 


For 31-bit addressing mode expansion, the high-order bit of 
a register can be cleared using this same technique. 
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The operand field being continued can be coded in one of two 
ways. The operand field can be coded through column 71, with no 
blanks, and be continued in column 16 of the next line, or the 
operand field can be truncated by a comma, where a comma 
normally falls, with at least one blank before column 71, and 
then be continued in column 16 of the next line. An example of 
each method is shown in the following illustration* 


Name Operation Operand 


Comments 


NAME1 0P1 


0PERAND1,0PERAND2,0PERAND3,QPERAND4,OPERANDS,0PERAND6,OPERX 
AND7,0PERAND8 THIS IS ONE WAY 


NAME2 0P2 0PERAND1,0PERAND2, THIS IS ANOTHER WAY 

0PERAND3, 

0PERAND4 


X 

X 
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MACRO INSTRUCTION DESCRIPTIONS 


h,_ J 


Bi,girzg.U-l.LIL A _ J I REC TOR Y- E N T R Y .USUBP AM l 

The BLDL macro is used to complete a list of information from 
the directory of a partitioned data set. The problem program 
must supply a storage area that must include information about 
the number of entries in the list* the length of each entry, and 
the name of each data set member Cor alias) before the BLDL 
macro is issued. Data set member names in the list must be in 
alphameric order. All read and write operations using the same 
data control block must have been tested for completion before 
the BLDL macro is issued. 

The BLDL macro is written: 


Isymbol1 

BLDL 

deb address 



.list ..address 


deb address —RX-Type Address, (2-12) or (1) 

The deb address operand specifies the address of the data 
control block for an open partitioned data set, or zero can 
be specified to indicate that the data set is in a job 
library, step library, or link library. 

list address —RX-Type Address, (2-12), or (0) 

The list address operand specifies the address of the list 
to be completed when the BLDL macro is issued. The list 
address must be on a halfword boundary. The following 
illustration shows the format of the list: 


List 

List Description 

Address n Field 


List 

Entry (LL bytes) 


0 or 
More 

Entries (FF total) 


Length 
(bytes) 2 


r—-*-•-- 

FF 

LL 

NAME 1 

TTR 

K 

Z 

C 

USER DATA 

NAME 2 


_i 


3 111 


0 to 62 


FF: This field must contain a binary value indicating the 

total number of entries in the list. 

LL: This field must contain a binary value indicating the 

length, in bytes, of each entry in the list (must be an 
even number of bytes). If the exact length of the entry is 
known, specify the exact length. Otherwise, specify at 
least 58 bytes (decimal) if the list is to be used with an 
ATTACH, LINK, LOAD, or XCTL macro. The minimum length for 
a list is 12 bytes. 

NAME: This field must contain the member name or alias to 

be located. The name must start in the first byte of the 
name field and be padded to the right with blanks (if 
necessary) to fill the 8-byte field. ( f 
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BLDL 


When the BLDL macro is executed* five fields of the 
directory entry list are filled in by the system. The 
specified length (LL) must be at least 14 to fill in the Z 
and C fields. If the LL field is 12* only the NAME# TT* R, 
and K fields are returned. The five fields are* 

TT s Indicates the relative track number where the 
beginning of the data set member is located. 

R: Indicates the relative block (record) number on the 

track indicated by TT. 

Ks Indicates the concatenation number of the data set. 

For the first or only data set* this value is zero. 

Z: Indicates where the system found the directory entry: 

Code Meaning 

0 Private library 

1 Link library 

2 Job* task* or step library 

3-255 Job* task* or step library of parent task n* where 

n = Z-2 

Ci Indicates the type (member or alias) for the name* the 
number of note list fields (TTRNs)* and the length of the 
user data field (indicated in halfwords). The following 
describes the meaning of the 8 bitsi 


Bit 

Meaning 


0 = 0 

Indicates a member name. 


0 = 1 

Indicates an alias. 


1-2 

Indicate the number of TTRN fields 
the user data field. 

(maximum of 3) in 

3-7 

Indicate the total number of halfwords in the user 
data field. If the list entry is to be used with an 
ATTACH* LINK* LOAD* or XCTL macro* the value in bits 
3 through 7 is 22 (decimal). 


USER DATAi The user data field contains the user data from 
the directory entry. If the length of the user data field 
in the BLDL list is equal to or greater than the user data 
field of the directory entry* the entire user data field is 
entered into the list. Otherwise* the list contains only 
the user data for which there is space. 
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COMPLETION CODES 

Nhen the system returns control to the problem program, the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code, as follows: 

Return Reason 

Code (15) Code (0) Meaning 


00 CX'OO 1 ) 00 CX'OO 1 ) Successful completion. 

04 (X , 04 f ) 00 (X f 00 f ) One or more entries in the list could 

not be filled; the list supplied may be 
invalid. If a search is attempted but 
the entry is not found, the R field 
(byte 11) for that entry is set to 
zero. 

08 (X'OS 1 ) 00 (X'00 1 ) A permanent 1/0 error was detected when 

the system attempted to search the 
directory. 

08 (X'08 1 ) 04 (X^A 1 ) Insufficient virtual storage was 

available. 


08 (X'08 1 ) 08 (X'OS') Invalid DEB. (Not in key 0 through 7.) 


(f ' 
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KJ?ZZBMKSP ACE .A.P HY 5IC A LM CQ Bk .M L 11 

The BSP macro causes the current volume to be backspaced one 
data block (physical record). All input and output operations 
must be tested for completion before the BSP macro is issued. 

The BSP macro should not be used if the CNTRL, NOTE, or POINT 
macro is being used. The BSP macro can be used only on data 
sets created by BSAM. 

Any attempt to backspace across a file mark will result in a 
return code of X’04 1 and your tape or direct access volume will 
not be repositioned. This means you cannot issue a successful 
BSP macro after your EODAD routine is entered unless you first 
reposition the tape or direct access volume into your data set. 
(CLOSE TYPE=T would get you repositioned at the end of your data 
set.) 

Magnetic Tape: A backspace is always made toward the beginning 
of the tape. 

Direct Access Device: A BSP macro must not be issued for a data 
set created by using track overflow. 

SYSIN or SYSOUT Data Sets: A BSP macro is ignored, but a 
completion code is returned. 

The BSP macro is written: 


IgYmbflU 


BSP 


dg.bL-addng.ss 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the volume to be backspaced. The data 
set on the volume to be backspaced must be opened before 
issuing the BSP macro. 
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BSP 

COMPLETION CODES 


When the system returns control to the problem program, the y 

low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code, as follows! 


Return Reason 

Code (151 Code (01 Meaning 


00 

(X'00*) 

00 

CX'00') 

Successful completion. 

04 

CX'04') 

01 

CX'01') 

A backspacing request was ignored on a 
SYSIN or SYSOUT data set. 

84 

CX'04') 

02 

CX'02') 

Backspace not supported for this device 
type. 

04 

CX'04') 

03 

CX'03') 

Backspace not successful; insufficient 
virtual storage was available. 

04 

CX'04') 

04 

CX'04') 

Backspace not successful; permanent I/O 
error. 

04 

CX'04') 

05 

CX'05') 

Backspace into load point or beyond 
start of data set on the current 
volume. 

04 

CX'04') 

06 

CX'06') 

Backspace detected an invalid DEB using 
DEBCHECK. 

04 

CX'04') 

07 

CX'07') 

Backspace detected an invalid extend 
value (M). 

04 

CX'04') 

08 

CX'08') 

Backspace issued while I/O was in 
progress. 
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BUILD 
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The BUILD macro is used to construct a buffer pool in an area 
provided by the problem program. The buffer pool may be used by 
more than one data set through separate data control blocks. 
Individual buffers are obtained from the buffer pool using the 
6ETBUF macro, and buffers are returned to the buffer pool using 
a FREEBUF macro. See D a taAdmiD i s Ir a t iPn„ 6 idi dS for an 
explanation of the interaction of the DCB, BUILD, and GETBUF 
macros in each access method, and the buffer size requirements. 

The BUILD macro is written? 



address -—RX-Type Address, (2-12), or (1) 

The area address operand specifies the address of the 
to be used as a buffer pool. The area must start on s 
fullword boundary. 


The following illustration shows the format of the buffer 
pool: 


Area 

Address 



Area Length=(Buffer Length) x (Number of Buffers) +8 
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BUILD 


number, of buffers —symbol, decimal digit, absexp, or (2-12) 

The numbei—of-buffers operand specifies the number of 
buffers in the buffer pool to a maximum of 255. 

buffer length -—symbol, decimal digit, absexp, or (2-12) 

The buffer length operand specifies the length, in bytes, 
of each buffer in the buffer pool. The value specified for 
the buffer length must be a fullword multiple; otherwise, 
the system rounds the value specified to the next higher 
fullword multiple. The maximum length that can be 
specified is 32760 bytes. For QSAM, the buffer length must 
be at least as large as the value specified in the block 
size (DCBBLKSI) field of the data control block. 


The number of buffers and buffer length can be specified in 
general register 0. - If (0) is coded, register 0 must 
contain the binary values for the number of buffers and 
buffer length as shown in the following illustration. 


Register 0 


Bits: 


Number of Buffers 


0 


15 16 


Buffer Length 


31 


m 
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£OILJJSCJ ~BU ilLg_A-BU F E E R J ? . QQ 1 . A N P.. A-RE C J BRP .ARE A.LflS AHl 

The BUILDRCD macro causes a buffer pool and a record area to be 
constructed in a usei—provided storage area. This macro is used 
only for variable-length, spanned records processed in QSAM 
locate mode. If the extended logical record interface (XLRI) is 
used to process RECFM=DS or RECFM=DB$ records (ISO/ANSI/FIPS 
variable spanned or variable blocked spanned), you can use the 
BUILDRCD macro to build a record area to a maximum length of 
16777183 bytes. Use of this macro before the data set is 
opened, or before the end of the DCB open exit routine, will 
provide a buffer pool that can be used for a logical record 
interface rather than a segment interface for variable-length 
spanned records. To invoke a logical record interface, specify 
BFTEK=A in the DCB. The BUILDRCD macro cannot be specified when 
logical records exceed 32760 bytes. 

The standard form of the BUILDRCD macro is written as follows 
(the list and execute forms are shown following the description 
of the standard form): 


tg.ymbjg.il 


BUILDRCD 


atea-.addr.sss 
t numb e.r - g f - byff. grs 
fJbMflsrJLsjiglh 
p r.s.g.9 . n d-ar s a-address 
t * rs c q r d a rs a J Ls n ath 1 


area address —A-Type Address or (2-12) 

The area address operand specifies the address of the area 
to be used as a buffer pool. The area must start on a 
fullword boundary. 

number of buffers —symbol, decimal digit, absexp, or (2-12) 

The numbei—of-buffers operand specifies the number of 
buffers, to a maximum of 255, to be in the buffer pool. 

buffer length —symbol, decimal digit, absexp, or (2-12) 

The buffet—length operand specifies the length, in bytes, 
of each buffer in the buffer pool. The value specified for 
the buffer length must be a fullword multiple; otherwise, 
the system rounds the value specified to the next higher 
fullword multiple. The maximum length that can be 
specified is 32760. 

rg .C.QCd..ac.e a ^addl^SS—A-Type Address or (2-12) 

The record area address operand specifies the address of 
the storage area to be used as a record area. The area 
must start on a doubleword boundary and have a length of 
the maximum logical record (LRECL) plus 32 bytes. 

record area length —symbol, decimal digit, absexp, or (2-12) 

The record area length operand specifies the length of the 
record area to be used. The area must be as long as the 
maximum length logical record plus 32 bytes for control 
information. If the record area length operand is omitted, 
the problem program must store the record area length in 
the first four bytes of the record area. 
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The following illustration shows the format of the buffer pool* 


Area 

Address 


BUFAD 

BUFLG 

BUFNO 

BUFLTH 

BUFRECAD 

Buffer 

i 

L 

Buffer 

Address of First 

Available Buffer 

Flags 

No. of 
Buffers 
Req’d 

Length of 
Each 

Buffer 

Address 
of Record 

Area 

4 bytes 1 byte 1 byte 2 bytes 4 bytes 

Buffer 


Buffer 

Buffer Pool Control Block 

---Area Length- 

Length 

Length 


Area Length = (Buffer Length) x (Number of Buffers) +1 2 


BUFLG Flags: 

Bit Meaning 

0=1 Record area present 

1=1 Buffer control block extended 

2-7 Reserved 
Notes: 

1. The buffer pool control block contains the address of the 
record area and a flag that indicates logical-record 
interface processing of variable-length, spanned records. 

2. It is the user's responsibility to release the buffer pool 
and the record area after a CLOSE macro has been issued for 
all the data control blocks that use the buffer pool and the 
record area. 
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B UI LDRCP ~ L 1 S T. FO RM 


The list form of the BUILDRCD macro is used to construct a 
program parameter list. The description of the standard form of 
the BUILDRCD macro instruction provides the explanation of the 
function of each operand. The description of the standard form 
also indicates the operands that are totally optional and those 
that are required in at least one of the pair of list and 
execute forms. The format description below indicates the 
optional and required operands in the list form only. 

The list form of the BUILDRCD macro is written* 


Csymh Q .ll 


BUXLDRCD 


ar&a_addr_&£S 
f nymban, pf ..b uf :. f ets 
y fe y f fa n -Iaiigth 

t r ec ord-a rea.a ddress 

C > re cQxd ...ar.^a-l.fi n athl 

,MF=L 


a«eL-addr.fiSS—A-Type Address 

numb a r.-9l.-bU.ff.SC.S—symbol, decimal digit, or absexp 
buffer length —symbol, decimal digit, or absexp 
nag9LEdLaJMa-addc ess —A“Type Address 

record area length —symbol, decimal digit, or absexp 
MF=L 

The MF=L operand specifies that the BUILDRCD macro 
instruction is used to create a parameter list that will be 
referenced by an execute form instruction. 

Note: A parameter list can be constructed by coding only the 

MF=L operand (without the preceding comma); in this case, the 
list is constructed for the area address, number of buffers, 
buffer length, and record area address operands. If the record 
area length operand is also required, the operands can be coded 
as follows: 

( symbol 1 BUILDRCD ,,,0,MF=L 

The preceding example shows the coding to construct a list 
containing address constants with a value of 0 in each constant. 
The actual values can then be supplied by the execute form of 
the BUILDRCD macro. 
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BUILDRCD 

g.gikPRCD — EXECUTE FO RM 

A remote parameter list is referred to, and can be modified by, 
the execute form of the BUILDRCD macro. The description of the 
standard form of the BUILDRCD macro instruction provides the 
explanation of the function of each operand. The description of 
the standard form also indicates the operands that are totally 
optional and those that are required in at least one of the pair 
of list and execute forms. The format description below 
indicates the optional and required operands for the execute 
form only. 

The execute form of the BUILDRCD macro is written* 


[ symbol 1 


BUILDRCD 


[ars a . a ddress* 

t t number of buffers ! 

, [b u -tfer . l e ngth* 

r t c. e £ Q nd_ai:.fia_^addce5g 1 
,[ record area length ] 

>MF=( E, {li s t-a.ddr.fi s s IC1)}) 


area address —RX-Type Address or (2-12) 
number of buffers —absexp 
kuf-f.ar-lfing.th—absexp 

record area address —RX-Type Address or (2-12) 
r ecor d ar ea, le n gth —absexp 

MF-(E,( list address 1(1)1) 

This operand specifies that the execute form of the 
BUILDRCD macro instruction is used, and an existing 
parameter list (created by a list-form instruction) will be 
used. The MF= operand is coded as described in the 
following: 

E 

list address —RX-Type Address, (2-12), or (1) 
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The CHECK macro causes the active task to be placed in the wait 
condition, if necessary, until the associated input or output 
operation is completed. The input or output operation is then 
tested for errors and exceptional conditions. If the operation 
is completed successfully, control is returned to the 
instruction following the CHECK macro. If the operation is not 
completed successfully, the error analysis (SYNAD) routine is 
given control or, if no error analysis routine is provided, the 
task is abnormally terminated. The error analysis routine is 
discussed in the SYNAD operand of the DCB macro. 

The following conditions are also handled for BPAM and BSAM 
only: 

When Reading: The end-of-data (EODAD) routine is given control 
if an input request is made after all the records have been 
retrieved. Volume switching is automatic for a BSAM data set 
that is not opened for UPDAT. For a BSAM data set that is 
opened for update, the end-of-data routine is entered at the end 
of each volume. 

When Writing: Additional space on the device is obtained when 
the current space is filled and more WRITE macro instructions 
have been issued. 

For BPAM and BSAM, a CHECK macro must be issued for each input 
and output operation, and must be issued in the same order as 
the READ or WRITE macros were issued for the data set. For BDAM 
or BISAM, either a CHECK or a WAIT macro can be used. For 
information on when the WAIT macro can be used, see Data 
AdmiD.i^traAi.on... Gui .de» 

If the ISCII/ASCII translation routines are included when the 
operating system is generated, translation can foe requested by 
coding LABEL=(,AL) or (,AUL) in the DD statement, or it can be 
requested by coding 0PTCD=Q in the DCB macro or DCB sufoparameter 
of the DD statement. If translation is requested, the check 
routine automatically translates BSAM records, as they are read, 
from ISCII/ASCII code to EBCDIC code, provided that the record 
format is F, FB, D, DB, or U. Translation occurs as soon as the 
check routine determines that the input buffer is full. For 
translation to occur correctly, all input data must foe in ISCII 
or ASCII code. 

The CHECK macro is written: 


l symbol: 

CHECK 

dscb address 



[ t DSORG={IS |ALL} 1 


decb address —RX-Type Address, (2-12), or (1) 

The decb address operand specifies the address of the data 
event control block created by the associated READ or WRITE 
macro or used by the associated input or output operation. 

DSORG={IS|ALL} 

The DSORG operand specifies the type of data set 
organization. The following describes the characters that 
can be coded: 

IS 

Specifies that the program generated is for BISAM use 
only. 

ALL 

Specifies that the program generated is for BDAM, 
BISAM, BPAM, or BSAM use. 

If the DSORG operand is omitted, the program generated is 
for BDAM, BPAM, or BSAM use only. 
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CHKPT 

.J£SIM3LMII^ 


The CHKPT macro is coded in-line in the problem program. When 
this macro executes, the operating system writes a checkpoint 
entry in a checkpoint data set. The entry consists of job step 
information, such as virtual-storage data areas, data set 
position, and supervisor control, from the problem program. The 
problem program automatically restarts with the instruction 
immediately following the CHKPT macro. 

For details on the CHKPT macro, see £h SC -K Po lfljZ R fiS t ar.:tJ is . e £Is 

fiyj.de * 
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CLOSE 


gLB.aE=L PQIJ BALLY.mi&MMEgJL AJAI A^^ 

The CLOSE macro causes output data set labels to be created and 
volumes to be positioned as specified by the user. The fields 
of the data control block are restored to the condition that 
existed before the OPEN macro was issued; and the data set is 
disconnected from the processing program. Final volume 
positioning or disposition for the current volume can be 
specified to override the positioning implied by the DD control 
statement DISP parameter. Any number of deb address operands 
and associated options may be specified in the CLOSE macro. 

Associated data sets for an IBM 3525 Card Punch can be closed in 
any sequence, but, if one data set is closed, I/O operations 
cannot be initiated for any of its associated data sets. 
Additional information about closing associated data sets is 
contained in D a ts L. A dm i ni g i o Lt i Q .aJg.yi.cLe. 

After a CLOSE has been issued for several data sets, a return 
code of 4 indicates that at least one of the data sets, VSAM or 
non-VSAM, was not closed successfully. 

A FREEPOOL macro should normally follow a CLOSE macro 
instruction (without TYPE=T) to regain the buffer pool storage 
space and to allow a new buffer pool to be built if the DCS is 
reopened with different record size attributes. 

A special operand, TYPE=T, is provided for processing with BSAM. 

The standard form of the CLOSE macro is written as follows (the 
list and execute forms are shown following the description of 
the standard form)s 


Csvmbol1 

CLOSE 

t.dcb.address. I option. ... 1 > 



[»TYPE=TJ 


deb address —A-Tvne Address or (2-12) 

specifies the address of the data control block for the 
opened data set that is to be closed. 


One of these options indicates the volume positioning that 
is to occur when the data set is closed. This option is 
generally used with the TYPE=T operand or for data sets on 
magnetic tape. However, options specified in the CLOSE 
macro will override disposition specifications in the JCL 
for all data sets. The options are: 

REREAD 

specifies that the current volume is to be positioned 
to reprocess the data set. If processing was forward, 
the volume is positioned to the beginning of the data 
set; if processing was backward (RDBACK), the volume 
is positioned to the end of the data set. If 
FREE=CLOSE is specified in the JCL, the data set is 
not unallocated until the end of the job step. 


LEAVE 

specifies that the current volume is to be positioned 
to the logical end of the data set. If processing was 
forward, the volume is positioned to the end of the 
data set; if processing was backward (RDBACK), the 
volume is positioned to the beginning of the data set. 

REWIND 

specifies that the current magnetic tape volume is to 
be positioned at the load point, regardless of the 
direction of processing. REWIND cannot be specified 
when TYPE“T is specified. If FREE=CLO$E has been 
coded on the DD statement associated with the data set 
being closed, coding the REWIND option will result in 
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the data set being freed at the time it is closed 
rather than at the termination of the job step. 


FREE 

specifies that the current data set is to be freed at 
the time the data set is closed* rather than at the 
time the job step is terminated. For tape data sets* 
this means that the volume is eligible for use by 
other tasks or to be demounted. Direct access volumes 
may also be freed for use by other tasks. They may be 
freed for demounting if (1) no other data sets on the 
volume are open and (2) the volume is otherwise 
demountable. Do not use this option with CLOSE 
TYPE=T. (For other restrictions on the FREE 
parameter* see JCL .) 


DISP 

specifies that a tape volume is to be disposed of in 
the manner implied by the DD statement associated with 
the data set. Direct access volume positioning and 
disposition are not affected by this parameter. There 
are several dispositions that can be specified in the 
DISP parameter of the DD statement* DISP can be PASS# 
DELETE* KEEP* CATLG* or UNCATLG. 


Depending on how the DISP option is coded in the DD 
statement* the current magnetic tape volume will be 
positioned as follows: 

DISP Parameter Action 

PASS Forward space to the end of 

data set on the current 
volume. 


DELETE Rewind the current volume. 

KEEP* CATLG* or UNCATLG The volume is positioned as 

for CLOSE REREAD. Note that 
the volume is not rewound and 
unloaded. 


If FREE=CLOSE has been coded in the DD statement 
associated with this data set* coding the DISP option 
in the CLOSE macro will result in the data set being 
freed when the data set is closed* rather than at the 
time the job step is terminated. 

Note: When the option operand is omitted* DISP is assumed. 

For TYPE=T* this is processed as LEAVE during execution. 

The LEAVE and REREAD options are meaningless except for 
magnetic tape and CLOSE TYPE=T. 

TYPE=T 

You can code CLOSE TYPE=T to perform some close functions 
for sequential data sets on magnetic tape and direct access 
volumes processed with BSAM. When you use TYPE=T* the DCB 
used to process the data set maintains its open status* and 
you should not issue another OPEN macro to continue 
processing the same data set. This option cannot be used 
in a SYNAD exit routine. 

The TYPE=T operand causes the system control program to 
process labels* modify some of the fields in the system 
control blocks for that data set* and reposition the volume 
(or current volume in the case of multivolume data sets) in 
much the same way that the normal CLOSE macro does. When 
you code TYPE=T * you can specify that the volume either be 
positioned at the end of data (the LEAVE option) or be 
repositioned at the beginning of data (the REREAD option). 
Magnetic tape volumes are repositioned either immediately 
before the first data record or immediately after the last 
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data record; the presence of tape labels has no effect on 
repositioning. 

If you code the RLSE keyword with the SPACE parameter on 
the DD statement that describes the output data set, it is 
ignored by temporary close (CLOSE TYPE=T) . If the last 
operation occurring prior to the normal CLOSE (without 
TYPE=T) and after the temporary close was a write, then any 
unused space will be released. 

Note: To use the CLOSE macro instruction supplied in the 

MVS/XA macro library on MVS/370, use the SPLEVEL macro 
instruction. You must use the SPLEVEL macro instruction to 
ensure that the MVS/XA version of the CLOSE macro 
instruction executes successfully on MVS/370. For more 
information on how to use the SPLEVEL macro, see System 
Ma.grp.s_.g.n.d.Ea g ill-tigs> Volume 2. 

For additional information and coding restrictions, see 

.Bala- A d mi n i s..t ca • 
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CLaafcrUai. FQR H 


The list form of the CLOSE macro is used to construct a data 
management parameter list. Any number of operands (data control 
block addresses and associated options) can be specified. 

The list consists of a one-word entry for each DCB in the 
parameter list; the high-order byte is used for the options and 
the three low-order bytes are used for the DCB address. The end 
of the list is indicated by a 1 in the high-order bit of the 
last entry's option byte. The length of a list generated by a 
list-form instruction must be equal to the maximum length 
required by an execute-form instruction that refers to the same 
list. A maximum length list can be constructed by one of two 
methods : 

• Code a list-form instruction with the maximum number of 
parameters that are required by an execute-form instruction 
that refers to the list. 

• Code a maximum length list by using commas in a list-form 
instruction to acquire a list of the appropriate size. For 
example,, coding CLOSE (,,,,,,,,,),MF=L would provide a list 
of five fullwords (five deb addresses and five options). 

Entries at the end of the list that are not referenced by the 
execute-form instruction are assumed to have been filled in when 
the list was constructed or by a previous execute-form 
instruction. Before using the execute-form instruction, you may 
shorten the list by placing a 1 in the high-order bit of the 
last DCB entry to be processed. 

A zeroed work area on a word boundary is equivalent to CLOSE 
(,DISP,...),MF=L and can be used in place of a list-form 
instruction. The high-order bit of the last DCB entry must 
contain a 1 before this list can be used with the execute-form 
instruction. 

A parameter list constructed by a CLOSE macro, list form, can be 
referred to by either an OPEN or CLOSE execute-form instruction. 

The description of the standard form of the CLOSE macro provides 
the explanation of the function of each operand. The 
description of the standard form also indicates the operands 
that are completely optional and those required in at least one 
of the pair of list and execute forms. The format description 
below indicates the optional and required operands in the list 
form only. 

The list form of the CLOSE macro is written: 



Isymbol 3 

CLOSE 

t [■dcb.„ad.ricg.ss] > tpptionl > • ♦ ♦ 1 
[,TYPE=T1 



, MF=L 


deb address —A-Type Address 
option —Same as standard form 
TYPE=T 

The TYPE=T operand can be coded in the list-form 
instruction to allow the specified option to be checked for 
validity when the program is assembled. 


The MF=L operand specifies that the CLOSE macro instruction 
is used to create a data management parameter list that 
will be referred to by an execute-form instruction. 
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£L9 $ -E ~ E X EE U .IEJE Q BM 


A list form of the CLOSE macro is used in and can be modified by 
the execute form of the CLOSE macro. The parameter list can be 
generated by the list form of either an OPEN macro or a CLOSE 
macro. 

The description of the standard form of the CLOSE macro provides 
the explanation of the function of each operand. The 
description of the standard form also indicates the operands 
that are totally optional and those required in at least one of 
the pair of list and execute forms. The format description 
below indicates the optional and required operands in the 
execute form only. 

The execute form of the CLOSE macro is written: 


Esyjnb.fll3 


CLOSE 


111 ris k a d dnsssl > > .•. )1 

[ f TYPE=T3 

, MF= ( E» ta drinea s .of JLia:tjfi>rm 111)}) 


.deb -a d d re ss—RX-Type Address or (2-12) 

option —If specified, same as the standard form. If not 
specified, the option specified in the list form of the CLOSE 
macro will be used. 

TYPE=T—Same as standard form. 

MF=(E>{a d dre s s..Qf-the - list-formI Cl)>) 

specifies that the execute form of the CLOSE macro 
instruction is being used, and the parameter list is 
created by the list form of the CLOSE macro instruction. 
The MF= operand is coded as described in the following: 

E 

address of the list form of the CLOSE (or OPEN) macro 
instruction—RX-Type Address, (2-12),-or (1) 
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The CNTRL macro is used to control magnetic tape drives (BSAM 
only for a data set that is not open for output), on-line card 
readers, IBM 3525 Card Punches (read and print features), 
printers (BSAM and QSAM), and the IBM 3890 Document Processor 
(QSAM only). For information on additional operands for the 
CNTRL macro for the 3890, see U M .JSS. 9 JI , D Q SM m fin t _ P r .P..£.e S£ .Pr. 

Machine and Programming Description . 

The MACRF operand of the DCB macro must specify a C. The CNTRL 
macro is ignored for SYSIN or SYSOUT data sets. For BSAM, all 
input and output operations must be tested for completion before 
the CNTRL macro is issued. The control facilities available are 
as follows: 

Card Reader: Provides stacker selection, as follows: 

QSAM—For unblocked records, a CNTRL macro should be issued 
after every input request. For blocked records, a CNTRL macro 
is issued after the last logical record on each card that is 
retrieved. Whether reading blocked or unblocked records, do not 
issue a CNTRL macro after a GET macro has caused control to pass 
to the EODAD routine. The move mode of the GET macro must be 
used, and the number of buffers (BUFNO field of the DCB) must be 
1. If a CLOSE macro is issued before the last card is read, the 
operator should clear the reader before the device is used 
again. 

BSAM—The CNTRL macro should be issued after every input 
request. 

Printer: Provides line spacing or a skip to a specific carriage 

control channel. A CNTRL macro cannot be used if carriage 
control characters are provided in the record. If the printer 
contains the universal character set feature, data checks should 
be blocked (0PTCD=U should not appear in the data control 
block). 

Magnetic Tape: Provides method of forward spacing and 
backspacing (BSAM only for a data set that is not open for 
output). If OPTCD=H is indicated in the data control block, the 
CNTRL macro can be used to perform record positioning on DOS 
tapes that contain embedded checkpoint records. Embedded 
checkpoint records encountered during the record positioning are 
bypassed and are not counted as blocks spaced over. 0PTCD=H 
must be specified in a job control language DD statement. The 
CNTRL macro cannot be used to backspace DOS 7-track tapes that 
are written in data convert mode that contain embedded 
checkpoint records (BSAM). 

Note: The CNTRL macro should not be used with output operations 

on BSAM tape data sets. 

3525 Printing: Provides line spacing or a skip to a specific 
printing line on the card. The card contains 25 printing lines; 
the odd-numbered lines 1 through 23 correspond to the printer 
skip channels 1 through 12 (see the SK operand). For additional 
information about 3525 printing operations, see OS and OS/VS 

E r a g n a m m in g. -Sm pp q r . t ,..f q r„ t h s-.I M ... 3 5. P 5..C ar d.. Re a de r-so d. IBM..35 25 

■ Cand -Ei mg -b. 
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The CNTRL macro is written: 


(symbol 1 

CNTRL 

deb address 


£,SS,£1 2}} 

£.SP,£1 213}} 

£.SK.£1 2|...111112}} 

£,BSM} 

{.FSM} 

{.BSR[.number of blocks]} 

£.FSR[,number of blocks]} 


dsb,-ad d r es s 

The deb address operand specifies the address of the data 
control block for the data set opened for the on-line 
device. 

SSt £112} 

The SS operand is coded as shown to indicate that the 
control function requested is stacker selection on a card 
reader; either 1 or 2 must be coded to indicate which 
stacker is to be selected. 

SPfClI2|33 

The SP operand is coded as shown to indicate that the 
control function requested is printer line spacing or 3525 
card punch line spacing; either 1, 2, or 3 must be coded to 
indicate the number of spaces for each print line. 

$K> C1121...111112} 

The SK operand is coded as shown to indicate that the 
control function requested is a skip operation on the 
printer or 3525 card punch, print feature; a number Cl 
through 12) must be coded to indicate the channel or print 
line to which the skip is to be taken. 


BSM 

The BSM operand indicates that the control function 
requested is to backspace the magnetic tape past a 
tapemark, then forward space over the tapemark. When this 
operand is specified, the DCBBLKCT field in the data 
control block is set to zero. 

FSM 

The FSM operand indicates that the control function 
requested is to forward space the magnetic tape over a 
tapemark, then backspace past the tapemark. When this 
operand is specified, the DCBBLKCT field in the data 
control block is set to zero. 

BSR 

The BSR operand indicates that the control function 
requested is to backspace the magnetic tape the number of 
blocks indicated in the numbei—of-blocks operand. 

FSR 

The FSR operand indicates that the control function 
requested is to forward space the magnetic tape the number 
of blocks indicated in the numbei—of-blocks operand. 

number of blocks —symbol, decimal digit, absexp, or (2-12) 
The numbei—of-blocks operand specifies the number of 
blocks to backspace (see BSR operand) or forward space 
(see FSR operand) the magnetic tape. The maximum 
value that can be specified is 32767. If the 
numbei—of-blocks operand is omitted, 1 is assumed. 
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If the forward space or backspace operation is not completed 
successfully^ control is passed to the error analysis (SYNAD) 
routine; if no SYNAD exit routine is designated/ the task is 
abnormally terminated. Register contents/ when control is 
passed to the error analysis routine, are shown in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 190. If a tapemark is encountered for BSR or 
FSR, control is returned to the processing program, and register 
15 contains a count of the uncompleted forward spaces or 
backspaces. If the operation is completed normally, register 15 
contains the value zero. 
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DCB^COMSIBUCTJV DATA CONTROL BLOCK (EDAM) 

The data control block for a basic direct access method (BDAM) 
data set is constructed during assembly of the problem program. 
The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other operands can be supplied from the DD 
statement or an existing data set label (DSCB). If more than 
one of these sources specifies information for a particular 
field, the order of priority is the DCB macro instruction, DD 
statement, and data set label. Each of the BDAM DCB operand 
descriptions contains a heading, "Source." The information 
under this heading describes the sources from which an operand 
can be supplied to the data control block. 

The DCB macro for BDAM is written: 


[symbol3 


DCE 


CBFALN=CFIEJ3 
[,BFTEK=R3 
[ y BLK$IZE=sbSfiXfi3 
[>BUFCE= relexp 3 
[,BUFL=absfiXE3 
[,BUFN0=aibs^3 
[»DDNAME= svmbol 3 1 
t DSORG=tDA|DAU} 

[ f EXLST = nele2ug3 

[,KEYLEN=ab.saxE3 

E,LIMCT=^b^xgl 

,MACRF={{(R{KEI3|1}[X3[S3EC33} 

C CWCACK1[13|KC X 3IIJCC3 )3 

C(R{K[I3|I}[X3[S3[C3,WCA[K3EI3|K[I3inEC3)J 
[ , OPTCD=C [RI A3 CE3IF3EW3]} 

E,RECFM=£U|V[S|BS3|F[T3J 3 
C,SYNAD=r.elgKe3 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the DCB operands that can be specified 
for creating and processing a BDAM.data set: 

BFALN={F|fiJ 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool. The BFALN operand can be 
specified when (1) BSAM is being used to create a BDAM data 
set and buffers are acquired automatically, (2) when an 
existing BDAM data set is being processed and dynamic 
buffering is requested, or (3) when the GETPOOL macro 
instruction is used to construct the buffer pool. If the 
BFALN operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 

F 

specifies that each buffer is aligned on a fullword 
boundary that is not also a doubleword boundary. 


specifies that each buffer is aligned on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide the area for 
the buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
operands are specified, they must be supplied from the same 
source. 
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BFTEK=R 

The R value coded for the BFTEK operand specifies that the 
data set is being created for or contains variable-length 
spanned records. The BFTEK operand can be coded only when 
the record format is specified as RECFM=VS. 

When variable-length spanned records are written* the data 
length can exceed the total capacity of a single track on 
the direct access device being used* or it can exceed the 
remaining capacity on a given track. The system divides 
the data block into segments (if necessary)* writes the 
first segment on a track* and writes the remaining 
segment(s) on the following track(s). 

When a variable-length spanned record is read* the system 
reads each segment and assembles a complete data block in 
the buffer designated in the area address operand of a READ 
macro instruction. 

Note: Variable-length spanned records can also be read 
using BSAM. When BSAM is used to read a BDAM 
variable-length spanned record* the record is read one 
segment at a time* and the problem program must assemble 
the segments into a complete data block. This operation is 
described in the section for the BSAM DCB macro 
instruction. 

Source: The BFTEK operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified* they must be supplied from the same 
source. 

BLKSIZE= absexp (maximum value is 32760) 

The BLKSIZE operand specifies the length* in bytes* of each 
data block for fixed-length records* or it specifies the 
maximum length* in bytes* of each data block for 
variable-length or undefined-length records. If keys are 
used* the length of the key is not included in the value 
specified for the BLKSIZE operand. 

The actual value that can be specified in the BLKSIZE 
operand depends on the record format and the type of direct 
access device being used. If track overflow is used or if 
variable-length spanned records are used* the value 
specified in the BLKSIZE operand can be up to the maximum. 
For all other record formats (F* V* VBS* and U)* the 
maximum value that can be specified in the BLKSIZE operand 
is determined by the track capacity of a single track on 
the direct access device being used. Device capacity for 
direct access devices is described in Appendix C* "Device 
Capacities" on page 203 of this publication. For 
additional information about device capacity and space 
allocation* see JEata^Adminis t rati Qn.J3.Mids. 

Source: The BLKSIZE operand can be supplied in the DCB 
macro instruction* in the DCB subparameter of a DD 
statement* by the problem program before completion of the 
data control block exit routine* or by the data set label 
of an existing data set. 

BUFCB=nel^R 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If the buffer pool is constructed automatically* 
dynamically* or by a GETPOOL macro instruction* the system 
places the address of the buffer pool control block into 
the data control block* and the BUFCB operand is not 
required. The BUFCB operand is not required if the problem 
program controls all buffering. 
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Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL= absexp (maximum value KEYLEN + BLKSIZE is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffers are acquired 
automatically (create BDAM) or dynamically (existing BDAM). 

When buffers are acquired automatically (create BDAM), the 
BUFL operand is optional; if specified, the value must be 
at least as large as the sum of the values specified for 
the KEYLEN and BLKSIZE operands. If the BUFL operand is 
omitted, the system constructs buffers with a length equal 
to the sum of the values specified in the KEYLEN and 
BLKSIZE operands. 

The BUFL operand must be specified when an existing BDAM 
data set is being processed and dynamic buffering is 
requested. Its value must be at least as large as the 
value specified for the BLKSIZE operand when the READ or 
WRITE macro instruction specifies a key address, or the 
value specified in the BUFL operand must be at least as 
large as the sum of the values specified in the KEYLEN and 
BLKSIZE operands if the READ and WRITE macro instructions 
specify 'S' for the key address. 

The BUFL operand can be omitted if the buffer pool is 
constructed by a BUILD or GETPOOL macro instruction or if 
the problem program controls all buffering. 

Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNO= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
the number of buffers and/or segment work areas to be 
acquired by the system. 

If the buffer pool is constructed by a BUILD macro 
instruction or if buffers are acquired automatically when 
BSAM is used to create a BDAM data set, the number of 
buffers must be specified in the BUFNO operand. 

If dynamic buffering is requested when an existing BDAM 
data set is being processed, the BUFNO operand is optional; 
if omitted, the system acquires two buffers. 

If variable-length spanned records are being processed and 
dynamic buffering is requested, the system also acquires a 
segment work area for each buffer. If dynamic buffering is 
not requested, the system acquires the number of segment 
work areas specified in the BUFNO operand. If the BUFNO 
operand is omitted when variable-length spanned records are 
being processed and dynamic buffering is not requested, the 
system acquires two segment work areas. 

If the buffer pool is constructed by a GETPOOL macro 
instruction or if the problem program controls all 
buffering, the BUFNO operand can be omitted, unless it is 
required to acquire additional segment work areas for 
variable-length spanned records. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 
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DDNAME= svmbo1 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB macro 
instruction or can be moved into the DCB by the problem 
program before an OPEN macro instruction is issued to open 
the data set. 

DSORG={DA|DAU} 

The DSORG operand specifies the data set organization and 
whether the data set contains any location-dependent 
information that would make it unmovable. For example, if 
actual device addresses are used to process a BDAM data 
set, the data set may be unmovable. The following 
describes the characters that can be specified: 

DA 

specifies a direct organization data set. 

DAU 

specifies a direct organization data set that contains 
location-dependent information. 

When a BDAM data set is created, the basic sequential 
access method (BSAM) is used. The DSORG operand in the DCB 
macro instruction must be coded as DSORG=P$ or PSU when the 
data set is created, and the DCB subparameter in the 
corresponding DD statement must be coded as D$ORG=DA or 
DAU. This creates a data set with a data set label 
identifying it as a BDAM data set. 

Source: The DSORG operand must be specified in the DCB 

macro instruction. See the preceding comment about 
creating a BDAM data set. 

EXLST=nfil^XP 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand must be specified if 
the problem program processes user labels during the open 
or close routine, if the data control block exit routine is 
used for additional processing, or if the DCB abend exit is 
used for abend condition analysis. 

For the format and requirements of exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 206. For additional information about exit list 
processing, see Da ta-A dm .in.i s t raA i d.e • 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program before the exit is 
needed. 

KEYLEN= absexp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, of all 
keys used in the data set. When keys are used, a key is 
associated with each data block in the data set. If the 
key length is not supplied by any source, no input or 
output requests that require a key can be specified in a 
READ or WRITE macro instruction. 

Source: The KEYLEN operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by an existing data 
set label. If KEYLEN=0 is specified in the DCB macro 
instruction, a special indicator is set in RECFM so that 
KEYLEN cannot be supplied from the DCB subparameter of a DD 
statement or data set label of an existing data set. 
KEYLEN=0 can be coded only in the DCB macro instruction and 
will be ignored if specified in the DD statement. 
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LIMCT=abs.eKP. 

The LIMCT operand specifies the number of blocks or tracks 
to be searched when the extended search option (OPTCD=E) is 
requested. 

When the extended search option is requested and relative 
block addressing is used, the records must be fixed-length 
record format. The system converts the number of blocks 
specified in the LIMCT operand into the number of tracks 
required to contain the blocks* then proceeds in the manner 
described below for relative track addressing. 

When the extended search option is requested and relative 
track addressing is used (or the number of blocks has been 
converted to the number of tracks)* the system searches for 
two things: (a) the block specified in a READ or WRITE 
macro instruction (type DK)* or (b) available space where 
it can add a block (WRITE macro instruction* type DA). The 
search is as follows: 

1. The search begins at the track specified by the block 
address operand of a READ or WRITE macro instruction. 

2. The search continues until the search is satisfied* the 
number of tracks specified in the LIMCT operand have 
been searched* or the entire data set has been 
searched. If the search has not been satisfied when 
the last track of the data set is reached* the system 
continues the search by starting at the first track of 
the data set if the EOF marker is on the last track 
that was allocated to the data set. (This operation 
allows the number specified in the LIMCT operand to 
exceed the size of the data set* causing the entire 
data set to be searched.) You can ensure that the EOF 
marker is on the last allocated track by determining 
the size of the data set and allocating space in 
blocks* or by allocating space in tracks and including 
the RLSE parameter on the SPACE operand of the DD 
statement (RLSE specifies that all unused tracks be 
returned to the system). 

The problem program can change the DCBLIMCT field in the 
data control block at any time* but* if the extended search 
option is used* the DCBLIMCT field must not be zero when a 
READ or WRITE macro instruction is issued. 

If the extended search option is not requested* the system 
ignores the LIMCT operand* and the search for a data block 
is limited to a single track. 

Source: The LIMCT operand can be supplied in the DCB macro 

instruction* the DCB subparameter of a DD statement* or by 
the problem program before the count is required by a READ 
or WRITE macro instruction. 

MACRF={{ ( R{K[ I ] |I}CX3CS3CC] )} 

{(wcAuamiKm linen} 

URCKtl] |I}CXHS3CC3*WCACK3[n|KCIlinCCnj} 

The MACRF operand specifies the type of macro instructions 
(READ* WRITE* CHECK, and WAIT) used when the data set is 
processed. The MACRF operand also specifies the type of 
search argument and BDAM functions used with the data set. 
When BSAM is used to create a BDAM data set* the BSAM 
operand MACRF=WL is specified. This special operand 
invokes the BSAM routine that can create a BDAM data set. 
The following describes the characters that can be 
specified for BDAM: 

A 

specifies that data blocks are to be added to the data 
set. 
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C 

specifies that CHECK macro instructions are used to 
test for completion of read and write operations. If 
C is not specified/ WAIT macro instructions must be 
used to test for completion of read and write 
operations. 

I 

specifies that the search argument is to be the block 
identification portion of the data block. If relative 
addressing is used/ the system converts the relative 
address to a full device address CMBBCCHHR) before the 
search. 

K 

specifies that the search argument is to be the key 
portion of the data block. The location of the key to 
be used as a search argument is specified in a READ or 
WRITE macro instruction. 

R 

specifies that READ macro instructions are to be used. 
READ macro instructions can be issued when the data 
set is opened for INPUT/ OUTPUT/ or UPDAT. 

S 

specifies that dynamic buffering is requested by 
specifying 'S' in the area address operand of a READ 
or WRITE macro instruction. 

W 

specifies that WRITE macro instructions are used. 

WRITE macro instructions can be issued only when the 
data set is opened for OUTPUT or UPDAT. 

X 

specifies that READ macro instructions request 
exclusive control of a data block. When exclusive 
control is requested/ the data block must be released 
by a subsequent WRITE or RELEX macro instruction. 

Source: The MACRF operand must be supplied in the DCB 

macro instruction. 

OPTCD={ [RIAHEHFHW]} 

The OPTCD operand specifies the optional services that are 
to be used with the BDAM data set. These options are 
related to the type of addressing used/ the extended search 
option/ block position feedback/ and write-validity 
checking. The following describes the characters that can 
be specified (the characters can be specified in any order/ 
and no commas are allowed between characters): 

A 

specifies that actual device addresses CMBBCCHHR) are 
provided to the system when READ or WRITE macro 
instructions are issued. 

E 

specifies that the extended search option is used to 
locate data blocks or available space where a data 
block can be added. When the extended search option 
is specified/ the number of blocks or tracks to be 
searched must be specified in the LIMCT operand. The 
extended search option is ignored if actual addressing 
COPTCD=A) is also specified. The extended search 
option requires that the data set have keys and that 
the search be made by key (by specifying DK in the 
READ or WRITE macro or DA in the WRITE macro). 

F 

specifies that block position feedback requested by a 
READ or WRITE macro instruction is to be in the same 
form that was originally presented to the system in 
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the READ or WRITE macro instruction. If the F operand 
is omitted, the system provides feedback, when 
requested, in the form of an 8-byte actual device 
address. (Feedback is always provided if exclusive 
control is requested.) 


R 

specifies that relative block addresses (in the form 
of 3-byte binary numbers) are provided to the system 
when a READ or WRITE macro instruction is issued. 

W 

specifies that the system is to perform a validity 
check for each record written. 

Note: Relative track addressing can only be specified by 

omitting both A and R from the OPTCD operand. If you want 
to specify relative track addressing after your data set 
has been accessed using another addressing scheme (OPTCD=A 
or R), you should either specify a valid OPTCD operand (E# 
F> or W) in the DCB macro or DD card when you reopen your 
data set, or zero out the OPTCD=A or R bits in the data 
control block exit routine. Note that the first method 
will prevent the open routines from merging any of the 
other OPTCD bits from the format-1 DSCB in the DCB. Both 
methods will update the OPTCD in the DSCB if the open is 
for OUTPUT, OUTIN, or UPDAT. 

Source: The OPTCD operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the DCB open 
exit routine. 

RECFN=CU|VIS IBS]|FCT3J 

The RECFM operand specifies the format and characteristics 
of the records in the data set. The following describes 
the characters that can be coded (if the optional 
characters are coded, they must be coded in the order shown 
above)s 

B 

specifies that the data set contains blocked records. 
The record format RECFM=VBS is the only combination in 
which B can be specified. RECFM=VBS does not cause 
the system to process spanned records; the problem 
program must block and segment the records. RECFM=VB$ 
is treated as a variable-length record by BDAM. 

F 

specifies that the data set contains fixed-length 
records. 

S 

specifies that the data set contains variable-length 
spanned records when it is coded as RECFM=VS. When 
RECFM=VBS is coded, the records are treated as 
variable-length records, and the problem program must 
block and segment the records. 

T 

specifies that track overflow is to be used with the 
data set. Track overflow allows a record to be 
partially written on one track and the remainder is 
written on the following track (if required). 

U 

specifies that the data set contains undefined-length 
records. 

V 

specifies that the data set contains variable-length 
records. 
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Source: The RECFM operand can he supplied in the DCB macro 

instruction# in the DCB subparameter of a DD statement# the 
problem program before completion of the data control block 
exit routine# or by the data set label of an existing data 
set. 

SYNAD=£gl&XE 

The SYNAD operand specifies the address of the error 
analysis routine t© be given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A# "Status Information Following an 
Input/Output Operation" on page 190. 

The error analysis routine must not use the save area 
pointed to by register 13# because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. When control is returned in this manner# the 
system returns control to the problem program and proceeds 
as though no error had been encountered. When a EDAM data 
set is being created# a return from the error analysis 
routine to the system causes abnormal termination of the 
task. 

If the SYNAD operand is omitted# the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error routine address at any time. 



/if x ' 
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.BJJBCJLJJB1S M 1 

The data control block for the basic indexed sequential access 
method (BISAM) is constructed during assembly of the problem 
program. The DSORG and MACRF operands must be coded in the DCB 
macro instruction, but the other DCB operands can be supplied 
from other sources. Each BISAM DCB operand description contains 
a heading, "Source.” The information under this heading 
describes the sources of the operand that can be supplied to the 
data control block. 

The DCB macro for BISAM is written* 




DCB 


EBFALN=£FIfi}1 
[,BUFCB=£^i^l 
E,BUFL=abs^P.3 
[,BUFN0=^b3fiXel 
E »DDNAME= svmbol 3 1 
,DSORG=IS 
E,EXLST=rjgJL^3 
t MACRF=C£(RES3 EC3 )J 

{(WCUEA31 A}EC3)} 

£(REUES31 S3EC3,W£UEA3|A}EC3)}} 
E * MSHl=ngJLg>£p3 
EfMSWA=r,filfi2SB3 
E ,NCP=ab.S-g.KE3 
»OPTCD=£(EL3ER3EW3)} 

E,SMSI= absexp 3 
[,SMSW=ahSffiBBi 

E,SYNAD=ng.IfiXp3 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the DCB operands that can be supplied 
when the basic indexed sequential access method is used* 

BFALN=£F|fi} 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is acquired 
for use with dynamic buffering or when the buffer pool is 
constructed by a GETPOOL macro instruction. If the BFALN 
operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified* 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

B 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool, or the problem program controls all buffering, 
the problem program must provide an area for the buffers 
and control buffer alignment. 

Sources The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If dynamic buffering is requested or the buffer pool is 
constructed by a GETPOOL macro instruction, the system 
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places the address of the buffer pool control block into 
the data control block# and the BUFCB operand must be 
omitted. The BUFCB operand must be omitted if the problem 

program controls all buffering. * 

Source: The BUFCB operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL = absexp (maximum value is 32760) 

The BUFL operand specifies the length of each buffer to be 
constructed by a BUILD or GETP00L macro instruction. Nhen 
the data set is opened# the system computes the minimum 
length required and verifies that the length in the buffer 
pool control block is equal to or greater than the minimum 
required. The system then inserts the computed length into 
the BUFL field of the data control block. 

If dynamic buffering is requested# the system computes the 
buffer length required# and the BUFL operand is not 
required. 

If the problem program controls all buffering# the BUFL 
operand is not required. However# an ISAM data set 
requires additional buffer space for system use. For a 
description of the buffer length required for various ISAM 
operations# see D a ta .AdminisAjcaAi.Q.n G uid e * 

Source: The BUFL operand can be supplied in the DCB macro 

instruction# in the DCB subparameter of a DD statement# or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQ= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers requested 
for use with dynamic buffering# or it specifies the number 
of buffers to be constructed by a BUILD macro instruction. 
If dynamic buffering is requested but the BUFNO operand is 
omitted# the system automatically acquires two buffers for 
use with dynamic buffering. 

If the GETPOOL macro instruction is used to construct the 
buffer pool# the BUFNO operand is not required. 

Source: The BUFNO operand can be supplied in the DCB macro 
instruction# in the DCB subparameter of a DD statement# or 
by the problem program before completion of the data 
control block exit routine. 

DDNAME=symbal 

The DDNAME operand specifies the name used to identify the 
job control language data definition statement that defines 
the ISAM data set to be processed. 

Source: The DDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DSORG=XS 

The DSORG operand specifies the indexed sequential 
organization of the data set. IS is the only combination 
of characters that can be coded for BISAM. 

Source: Unless it is for a data set passed from a previous 
job step# the DSORG operand must be coded in the DCB macro 
instruction and in the DCB subparameter of a DD statement. 
In this case# DSORG may be omitted from the DD statement. 

EXLSTs relexp 

The EXLST operand specifies the address of the problem 
program exit list. If the problem program uses the data 
control block exit routine for additional processing# the 
EXLST operand is required. 
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For the format and requirements for exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 206. For additional information about exit list 
processing, see Da ia...A dn ii n istr ai; i p n .. gu i d e. 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program before the associated 
exit is required. 

MACRF={{ (RESHC3 )} 

UWCUEA3 | A} EC])} 

UREUES3 |S3EC3,W£UEA3 |A}ECJ)}} 

The MACRF operand specifies the type of macro instructions 
(READ, WRITE, CHECK, WAIT, and FREEDBUF) and type of 
processing (add records, dynamic buffering, and update 
records) to be used with the data set being processed. The 
operand can be coded in any of the combinations shown 
above; the following describes the characters that can be 
coded: 

A 

specifies that new records are to be added to the data 
set. This character must be coded if NRITE KN macro 
instructions are used with the data set. 

C 

specifies that the CHECK macro instruction is used to 
test I/O operations for completion. If C is not 
coded, NAIT macro instructions must be used. 

R 

specifies that READ macro instructions are to be used. 
S 

specifies that dynamic buffering is requested in READ 
macro instructions. S should not be specified if the 
problem program provides the buffer pool. 

U 

specifies that records in the data set will be updated 
in place. If U is coded in combination with R* it 
must also be coded in combination with W. For 
example, MACRF=CRU,WU). 

W 

specifies that NRITE macro instructions are to be 
used. 

Source: The MACRF operand must be coded in the DCB macro 

instruction. 

MSHI=r e l e XP 

The MSHI operand specifies the address of the storage area 
used to contain the highest-level master index for the data 
set. The system uses this area to reduce the search time 
required to find a given record in the data set. The MSHZ 
operand is coded only when the SMSZ operand is coded. 

Source: The MSHZ operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

MSWA=n£lexP 

The MSWA operand specifies the address of the storage work 
area to be used by the system when new records are being 
added to the data set. This operand is optional, but the 
system acquires a minimum-size work area if the operand is 
omitted. The MSWA operand is coded only when the SMSW 
operand is coded. 

Processing efficiency can be increased if more than a 
minimum-size work area is provided. For more detailed 
information about work area size, see isAralign 
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Note: QISAM uses the DCBMSWA, DCBSMSI, and DCBSMSW fields 

in the data control block as a work area; these fields 
contain meaningful information only when the data set is 
opened for BISAM. 

Source: The MSWA operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

NCP= absexp (maximum value is 99) 

The NCR operand specifies the maximum number of READ/WRITE 
macro instructions that are issued before the first CHECK 
(or WAIT) macro instruction is issued to test for 
completion of the I/O operation. The maximum number that 
can be specified may be less than 99, depending on the 
amount of virtual storage available in the region. If the 
NCR operand is omitted, 1 is assumed. If dynamic buffering 
is used, the value specified for the NCR operand must not 
exceed the number of buffers specified in the BUFNO 
operand. 

Source: The NCR operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block open exit routine. 

OPTCD={ [LHRHW]} 

The OPTCD operand specifies the optional services performed 
by the control program. All optional services must be 
requested by one method; that is, by the data set label of 
an existing data set, this macro, or the DD statement on 
the DCB parameter. However, it can be modified by the 
problem program. The characters may be coded in any order 
and, when used in combination, no commas are permitted 
between characters. 

L 

specifies that the control program delete records that 
have a first byte of all l f s. (These records can be 
deleted when space is required for new records. To 
use the delete option, the relative key position (RKP) 
must be greater than 0 for fixed-length records and 
greater than 4 for variable-length records.) 

R 

specifies that the control program place 
reorganization criteria information in certain fields 
of the data control block. (The problem program can 
analyze these statistics to determine when to 
reorganize the data set. This option is provided 
whenever the OPTCD operand is omitted from all 
sources.) 

W 

specifies a validity check for write operations on 
direct access devices. 

SMSls absexp (maximum value is 65535) 

The SMSI operand specifies the length, in bytes, required 
to contain the highest-level master index for the data set 
being processed. The size required can be determined from 
the DCBNCRHI field of the data control block. When an ISAM 
data set is created (with QISAM), the size of the 
highest-level index is inserted into the DCBNCRHI field. 

If the value specified in the SMSI operand is less than the 
value in the DCBNCRHI field, the task is abnormally 
terminated. 

Note: QISAM uses the DCBMSWA, DCBSMSI, and DCBSMSW fields 

as a work area; these fields contain meaningful information 
only when the data set is opened for BISAM. 
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Source: The SMSZ operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

SMSW= absexp (maximum value is 65535) 

The SMSW operand specifies the length* in bytes* of a work 
area that is used by BISAM. This operand is optional* but 
the system acquires a minimum-size work area if the operand 
is omitted. The SMSW operand is coded only when the MSWA 
operand is also coded. If the SMSW operand is coded but 
the size specified is less than the minimum required* the 
task is abnormally terminated. Data Administration,Guide 
describes the methods of calculating the size of the work 
area. 

If unblocked records are used* the work area must be large 
enough to contain all the count fields (8 bytes each)* key 
fields* and data fields contained on one direct access 
device track. 

If blocked records are used* the work area must be large 
enough to contain all the count fields (8 bytes each) and 
data fields contained on one direct access device track 
plus additional space for one logical record (LRECL value). 

Note: QISAM uses the DCBMSWA* DCBSMSI* and DCBSMSW fields 

in the data control block as a work area* these fields 
contain meaningful information only when the data set is 
opened for BISAM. 

Source: The SMSW operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

SYNAD= relexp 

The SYNAD operand specifies the address of the error 
analysis routine given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A* "Status Information Following an 
Input/Output Operation” on page 190. 

The error analysis routine must not use the save area 
pointed to by register 13 because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. When control is returned in this manner* the 
system returns control to the problem program and proceeds 
as though no error had been encountered. If the error 
analysis routine continues processing* the results are 
unpredictable. 

If the SYNAD operand is omitted* the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error analysis routine address at any 
time. 
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P.QB~C.QN$TRyCT. A-DATA..C ON TRQL BL OC mBPAHJ. 


The data control block for the basic partitioned access method 
(BPAM) is constructed during assembly of the problem program. 

The DSORG and MACRF operands must be specified in the DCB macro 
instruction, but the other DCB operands can be supplied from 
other sources. Each of the BPAM DCB operand descriptions 
contains a heading, "Source." The information under this 
heading describes the sources that can supply the operand to the 
data control block. 

The DCB macro for BPAM is written: 


C s ym bol 3 


DCB 


EBFALN={F|fi}3 
[,BLKSIZE=ab££Xfi3 
C,BUFCB=neiexg3 
C,BUFL=abs^P.3 
[,BUFN0=abS.gKB3 
E,DDNAME=£Ymbol3 1 
, DSORG=CPO|POUJ 
E,E0DAD=nelezp3 
E,EXLST=re lex B3 
E ,KEYLEN=ahsgXJg3 
E,LRECL=abs^xp3 
, MACRF=C(RlWIRjWJJ 1 
E ,NCP=a b 5.ex p 3 
E,OPTCD=CtCIWEC3} 

CCIHEC3} 
CCIWEH3EC3333 
E,RECFM=C{UET]EA|M3} 

CVEBET3IT3EAIM3J 
CFCBET3|T3 EA|M3}}3 
E,SYNAD= relexp 3 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

When you create or process a BPAM data set, you can specify the 
following DCB operands: 

BFALN=CF|fi} 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. The 
characters that can be specified in the BFALN operand are: 

F 

specifies that each buffer is aligned on a fullword 
boundary that is not also a doubleword boundary. 


specifies that each buffer is aligned on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide an area for the 
buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BLKSXZE= absexp (maximum value KEYLEN + BLKSIZE is 32760) 

The BLKSIZE operand specifies the length, in bytes, of each 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, for variable-length or 
undefined-length records. If keys are used, the length of 
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the key is not included ir the value specified for the 
BLKSIZE operand. 

The actual block size that can be specified depends on the 
record format and the type of direct access device being 
used. If track overflow is used, the block size can be up 
to the maximum. If track overflow is not used, the maximum 
block size is determined by the track capacity of a single 
track on the direct access device being used. Device 
capacity for direct access devices is described in 
Appendix C, "Device Capacities" on page 203, For 
additional information about device capacity and space 
allocation, see P a t a.,A dministnaLtloD-S- U ids. 

For variable-length records, the value specified in the 
BLKSIZE operand must include the maximum logical record 
length (up to 32756 bytes) plus 4 bytes for the block 
descriptor word (BDW). 

For undefined-length records, the value specified for the 
BLKSIZE operand can be altered by the problem program when 
the actual length becomes known to the problem program. 

The value can be inserted into the DCBBLKSI field of the 
data control block or specified in the length operand of a 
READ/WRITE macro instruction. 

Source: The BLKSIZE operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

BUFCB=j^iexp 

The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 

If the buffer pool is constructed automatically or by a 
GETPOQL macro instruction, the system places the address of 
the buffer pool control block into the data control block 
and the BUFCB operand can be omitted. Also, if the problem 
program controls all buffering, the BUFCB operand should be 
omitted. 

Source: The BUFCB operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL= absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is acquired 
automatically. If the BUFL operand is omitted and the 
buffer pool is acquired automatically, the system acquires 
buffers with a length that is equal to the sum of the 
values specified in the KEYLEN and BLKSIZE operands. If 
the problem program requires longer buffers, the BUFL 
operand should be specified. 

If the problem program controls all buffering, the BUFL 
operand is not required. 

Source: The BUFL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQ= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
the number of buffers to be acquired automatically by the 
system. 
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If the problem program controls all buffering or if the 
buffer pool is constructed by a GETPOOL macro instruction, 
the BUFNO operand should be omitted. 

Source: The BUFNO operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

DDNAHE=symfeai 

The DDNANE operand specifies the name used to identify the 
job control language data definition CDD) statement that 
defines the data set being created or processed. 

Source: The DDNANE operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DSORG={PO|POUT 

The DSORG operand specifies the data set organization and 
whether the data set contains any location-dependent 
information that would make it unmovable. The characters 
that can be specified ares 

PO 

specifies a partitioned data set organization. 

POU 

specifies a partitioned data set organization and that 
the data set contains location-dependent information. 

Note: If BSAM or QSAM is used to add or retrieve a single 

member of a partitioned data set, a sequential access 
method is being used, and the DSORG operand is specified as 
PS or PSU. The name of the member being processed in this 
manner is supplied in a DD statement. 

Source: The DSORG operand must be specified in the DCB 

macro instruction. 

EODAD=|^Jj£xe 

The EODAD operand specifies the address of the routine 
given control when the end of the input data set is 
reached. Control is given to this routine when an input 
request is made (READ macro instruction) and there are no 
additional input records to retrieve. The routine is 
entered when a CHECK macro instruction is issued and the 
end of the data set is reached. If the end of the data set 
is reached and no EODAD address has been supplied, the task 
is abnormally terminated. For additional information on 
the EODAD routine, see . 

Source: The EODAD operand can be supplied in the DCB macro 

instruction or by the problem program before the end of the 
data set is reached. 

EXLSTsr^jftSB 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program uses the data control block exit routine 
for additional processing or if the DCB abend exit is used 
for abend condition analysis. 

For the format and requirements of the exit list 
processing, see Appendix D, TC DCB Exit List Format and 
Contents 11 on page 206. For additional information about 
exit list processing, see * 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program before the OPEN macro 
instruction is issued to ©pen the data set. 
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KEVLEN= absexp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, of the 
key associated with each data block in the direct access 
device data set. If the key length is not supplied from 
any source by the end of the data control block exit 
routine, a key length of zero (no keys) is assumed. 

Sources The KEYLEN operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by the data set 
label of an existing data set. If KEYLEN=0 is specified 
in the DCB macro instruction, a special indicator is set in 
RECFM so that KEYLEN cannot be supplied from the DCB 
subparameter of a DD statement or data set label of an 
existing data set. KEYLEN=0 can be coded only in the DCB 
macro instruction and will be ignored if specified in the 
DD statement. 

LRECL= absexp (maximum value is 32760) 

The LRECL operand specifies the length, in bytes, of each 
fixed-length logical record in the data set; It is required 
only for fixed-length records. The value specified in the 
LRECL operand cannot exceed the value specified in the 
BLKSIZE operand. 

If the records are unblocked, the value specified in the 
LRECL operand must equal the value specified in the BLKSIZE 
operand. If the records are blocked, the value specified 
in the LRECL operand must be evenly divisible into the 
value specified in the BLKSIZE operand. 

Source: The LRECL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 

MACRF=C(R|W|R,W)J 

The MACRF operand specifies the type of macro instructions 
(READ, WRITE, and NOTE/POINT) that are used to process the 
data set. The characters that can be specified are: 

R 

specifies that READ macro instructions are to be used. 
This operand automatically provides the capability to 
use both the NOTE and POINT macro instructions with 
the data set. 

W 

specifies that WRITE macro instructions are to be 
used. This operand automatically provides the 
capability to use both the NOTE and POINT macro 
instructions with the data set. 

All BPAM READ and WRITE macro instructions issued must be 
tested for completion using a CHECK macro instruction. The 
MACRF operand does not require any coding to specify that a 
CHECK macro instruction will be used. 

Source: The MACRF operand must be specified in the DCB 

macro instruction. 

NCPs absexp (maximum value is 99) 

The NCR operand specifies the maximum number of READ and 
WRITE macro instructions that will be issued before the 
first CHECK macro instruction is issued. The maximum 
number may be less than 99, depending on the amount of 
virtual storage available in the region. If chained 
scheduling is specified, the value of NCP determines the 
maximum number of channel program segments that can be 
chained and must be specified as more than 1. If the NCP 
operand is omitted, 1 is assumed. 
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Source: The NOP operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or /f > 
by the problem program before completion of the data f i 

control block open exit routine. V./ 

OPTCD=CCClW£Cn 
{C1HICJJ 
CCIWCHHCI)} 

The OPTCD operand specifies the optional services performed 
by the system. The characters that can be specified (in 
any order, in any combination, and without commas between 
characters) are: 

0 

specifies that chained scheduling is used. This 
option is ignored for direct access devices. 

H 

If 0PTCD=H is coded in the DCB parameters of a DD 
statement, H specifies that, if a partitioned data set 
is being opened for input and resides on an MSS 
device, then, at OPEN time, the data set is to be 
staged to EOF on the virtual DASD device. 

W 

specifies that the system is to perform a validity 
check for each record written. 

Source: The OPTCD operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before an OPEN macro instruction is 
issued to open the data set. However, all optional 
services must be requested from the same source. 

RECFM=CCUCT3CA|M3} 

{VCBCT33ICT3CAIM3} 

CFCBCT3 31CT3 CA|M3}} 

The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 

All the record formats shown above can be specified, but in 
those formats that show blocked records, the problem 
program must perform the blocking and deblocking of logical 
records; BPAM recognizes only data blocks. The characters 
that can be specified are: 

A 

specifies that the records in the data set contain 
ISO/ANSI/FIPS control characters. For a description 
of control characters, see Appendix E, "Control 
Characters” on page 208. 

B 

specifies that the data set contains blocked records. 

F 

specifies that the data set contains fixed-length 
records. 

M 

specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 208. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track of a direct access device and 
the remainder of the record written on the following 
track (if required). Chained scheduling (0PTCD=C) 
cannot be used if the track overflow is used. 
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specifies that the data set contains undefined-length 
records. 


V 

specifies that the data set contains variable-length 
records. 

Source: The RECFN operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 

SYNAD= relexp 

The SYNAD operand specifies the address of the error 
analysis (SYNAD) routine to be given control when an 
uncorrectable input/output error occurs. The contents of 
the registers when the error analysis routine is given 
control are described in Appendix A, "Status Information 
Following an Input/Output Operation" on page 190. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can return control to the system by 
issuing a RETURN macro instruction. If control is returned 
to the system, the system returns control to the problem 
program and proceeds as though no error had been 
encountered. 

If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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P.C B~CO NSTR UCI , A . DATA C ONTR O L. BLPfi K .lB.SAlH 


The data control block for the basic sequential access method 
CBSAM) is constructed during assembly of the problem program. 

The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other DCB operands can be supplied to the 
data control block from other sources. Each DCB operand 
description contains a heading, "Source. ,f The information under 
this heading describes the sources of an operand that can be 
supplied. 

The DCB macro for BSAM is written* 


[ symbol ] 


DCB 


[BFALN=£F|fi}3 
[»BFTEK=R3 


[,BLKSIZE= absexp I 
[,BUFCB= relexp l 
[ > BUFL=absexp] 

[,BUFNO= absexp J 

[,BUFOFF={ ab s e xplL>] 

[ t DDNAME=sypibQl] 1 
[,DEVD=CCBA 

[.KEYLEN= absexp l> 

CTA 

[>DEN={1121314} ] 
(»TRTCH=CC|E|ET|T}3} 

CPR 

t f PRTSP={0111 213} 1} 

CPC 

[,MODE=[C|£33 

[,STACK=£1|2}3 

[ r FUNC=CIIPIPWtXT]IRIRPCD3| 

RWCT1 IRWPCXTHDl IWCTIJ] 


CRD 

[,M0DE=[C|£][0|R33 

[,STACK=C1I2J3 

[ r FUNC={I|P|PM[XT3|R|RPCD3| 

RW[T3|RUP[XT3[D3|W[T3}3}3 
.DSORG=£PS|PSU3 1 
[.E0DAD= reiexp 3 
[ >EXLST= r .e Iex p3 
[,KEYLEN=a b 5 9 XP.3 
[,LRECL=CabS£XfilXJ3 
,MACRF=CC(R[C|P3)} 

{(W[C|P1L3)} 

C(R[C|P3,W[C|P3)JJ 1 


[>NCP=absexg3 
[,0PTCD=CCB3 
CT} 

CUIC3} 

CCET3[B3[U3> 

CH[Z3[B]} 

{J[C3[U3J 
CW[C3[T3[B3[U]} 

CZ[C3[T3[B3[U3} 

CQ[C3[B3[T|Z3}}3 
[ i RECFM=CCy[T3[A|N3> 

CVtB|S|T|BS|BT][A|M3} 
CD[B|S|BS3[A3} 
{F[B|S|T|BS|BT][A|M3}}3 
[,SYNAD= relexp 3 


This parameter must be supplied before an OPEN macro is 
issued for this DCB; it cannot be supplied in the open exit 
routine. 
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The following describes the operands that can be specified in 
the DCB macro instruction for a BSAM data sets 

BFALN=CF|fiJ 

The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted* the system 
provides doubleword alignment for each buffer. 

If the data set being created or processed contains 
ISCII/ASCII tape records with a block prefix* the block 
prefix is entered at the beginning of the buffer* and data 
alignment depends on the length of the block prefix. For a 
description of how to specify the block prefix length* see 
the description of the DCB BUFOFF operand. 

The characters that can be specified are: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 


specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide an area for the 
buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 

instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
operands are specified* they must be supplied by the same 
source. 

BFTEK=R 

The BFTEK=R operand specifies that BSAM is used to read 
unblocked variable-length spanned records with keys from a 
BDAM data set. Each read operation reads one segment of 
the record and places it in the area designated in the READ 
macro instruction. The first segment enters at the 
beginning of the area* but all subsequent segments are 
offset by the length of the key (only the first segment has 
a key). The problem program must provide an area in which 
it can assemble a record, identify each segment* and 
assemble the segments into a complete record. 

Source: The BFTEK operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a DD statement* or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified* they must be supplied from the same 
source. 

BLKSIZE= absexp (maximum value KEYLEN + BLKSIZE is 32760) 

The BLKSIZE operand specifies the maximum block length in 
bytes. For fixed-length, unblocked records* this operand 
specifies the record length. The BLKSIZE operand includes 
only the data block length* if keys are used* the length of 
the key is not included in the value specified for the 
BLKSIZE operand. 

The actual value that can be specified in the BLKSIZE 
operand depends on the device type and the record format 
being used. Device capacity is shown in 
Appendix C* "Device Capacities" on page 203. For 
additional information about device capacity* see Data 
Admi nistra tion Guid e* 
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For direct access devices when track overflow is used or 
variable-length spanned records are being processed, the 
value specified in the BLKSIZE operand can be up to the 
maximum value. For other record formats used with direct 
access devices, the value specified for BLKSIZE cannot 
exceed the capacity of a single track. 

If fixed-length records are used, the value specified in 
the BLKSIZE operand should be an integral multiple of the 
value specified for the logical record length (LRECL). 

If variable-length records are used, the value specified in 
the BLKSIZE operand must include the maximum logical record 
length (up to 32756 bytes) plus the 4 bytes required for 
the block descriptor word (BDW). For format-D 
variable-length records (ISCII/ASCII data sets), the 
minimum value for BLKSIZE is 18 bytes. The maximum value 
is 2048 bytes. For additional information about the 
BLKSIZE restrictions, see B a ta .Jtdmi n l sJ x a X XQXL. S Ml.de. 

If ISCII/ASCII tape records with a block prefix are 
processed, the value specified in the BLKSIZE operand must 
also include the length of the block prefix. 

If BSAM is used to read variable-length spanned records 
from a BDAM data set, the value specified for the BLKSIZE 
operand must be as large as the longest possible record 
segment in the BDAM data set, including 4 bytes for the 
segment descriptor word (SDW) and 4 bytes for the block 
descriptor word (BDW). 

If undefined-length records are used, the value specified 
for the BLKSIZE operand can be altered by the problem 
program when the actual length becomes known to the problem 
program. The value can be inserted directly into the 
DCBBLKSI field of the data control block or specified in 
the length operand of a READ/WRITE macro instruction. 

Source: The BLKSIZE operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 

Note: The maximum block size for Version 3 ISO/ANSI/FIPS 

tapes (ISO 1001-1979 and ANSI X3.27-1978) is 2048 bytes. 

An attempt to exceed 2048 bytes for a Version 3 tape 
results in a label validation installation exit being 
taken. 

BUFCB=£BlaxB 

The BUFCB operand specifies the address of the buffer pool 
control block in a buffer pool constructed by a BUILD macro 
instruction. 

If the buffer pool is to be constructed automatically or by 
a GETPOOL macro instruction, the system places the address 
of the buffer pool control block into the data control 
block, and the BUFCB operand should be omitted. If the 
problem program is to control all buffering, the BUFCB 
operand is not required. 

Source: The BUFCB operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL= absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, for each 
buffer in the buffer pool when the buffer pool is acquired 
automatically. The system acquires buffers with a length 
equal to the sum of the values specified in the KEYLEN and 
BLKSIZE operands if the BUFL operand is omitted; if the 
problem program requires larger buffers, the BUFL operand 
must be specified. If the BUFL operand is specified, it 
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must be at least as large as the value specified in the 
BLKSIZE operand. If the data set is for card image mode* 
the BUFL operand should be specified as 160. The 
description of the DEVD operand contains a description of 
card image mode. 

If the data set contains ISCII/ASCII tape records with a 
block prefix^ the value specified in the BUFL operand must 
include the block length plus the length of the block 
prefix. 

If the problem program is to control all buffering or if 
the buffer pool is to be constructed by a GETPOOL or BUILD 
macro instruction, the BUFL operand is not required. 

Source: The BUFL operand can be supplied in the DOB macro 
instruction, in the DOB keyword on a DD statement, or by 
the problem program before completion of the data control 
block exit routine. 

BUFNO= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers 
constructed by a BUILD macro instruction or the number of 
buffers to be acquired automatically by the system. 

If the problem program controls all buffering or if the 
buffer pool is constructed by a GETPOOL macro instruction, 
the BUFNO operand should be omitted. 

Source: The BUFNO operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFOFF={QbsgxKlL> 

The BUFOFF operand specifies the length, in bytes, of the 
block prefix used with an ISCII/ASCII tape data set. When 
BSAM is used to read an ISCII/ASCII tape data set, the 
problem program must use the block prefix length to 
determine the location of the data in the buffer. When 
BSAM is used to write an output ISCII/ASCII tape data set, 
the problem program must insert the block prefix into the 
buffer, followed by the data (BSAM considers the block 
prefix as data). The block prefix and data can consist of 
any characters that can be translated into 7-bit 
ISCII/ASCII code; any character that cannot be translated 
is replaced with a substitute character. (For a more 
detailed description of ISCII/ASCII translation 
characteristics, see 

Structure .) For format-D records, the RDW must be binary; 
if RECFM=D and BUF0FF=L, the RDW and BDW must both be 
binary. On output, the control program translates the BDW 
and RDW to ISCII/ASCII characters and, on input, the 
control program converts ISCII/ASCII data to BDW and RDW. 
The following can be specified in the BUFOFF operands 


specifies the length, in bytes, of the block prefix. 
This value can be from 0 to 99 for an input data set 
The value must be 0 for writing an output data set 
with fixed-length or undefined-length records (BSAM 
considers the block prefix part of the data record). 


specifies that the block prefix is 4 bytes long and 
contains the block length. BUFOFF=L is used when 
format-D records (ISCII/ASCII) are processed. When 
BUFOFF=L is specified, the BSAM problem program can 
process the data records (using READ and WRITE macro 
instructions) in the same manner as if the data were 
in format-V variable-length records. For further 
information on this operand, see "Variable-Length 
Records—Format D" in Data.Ariministialion G u i. 
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If the BUFOFF operand is omitted for an input data set with 
format-D records, the system inserts the record length into 
the DCBLRECL field of the data control block; the problem 
program must obtain the length from this field to process V y 

the record. 

If the BUFOFF operand is omitted from an output data set 
with format-D records, the problem program must insert the 
actual record length into the DCBBLKSI field of the data 
control block or specify the record length in the length 
operand of a NRITE macro instruction. 

Source: The BUFOFF operand can be supplied in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, or by the problem program before an OPEN macro 
instruction is issued to open the data set. BlJFOFF-absexp 
can also be supplied by the label of an existing data set; 

BUF0FF=L cannot be supplied by the label of an existing 
data set. 

DDNAME=symkel 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB macro 
instruction or by the problem program before an OPEN macro 
instruction is issued to open the data set. 

DEVD={MITA[ PR| PC| RD5 C . options ) 

The DEVD operand specifies the device type where the data 
set can or does reside. The device types above are shown 
with the optional operand(s) that can be coded when a 
particular device is used. The devices are listed in order 
of device independence. For example, if DEVB-BA is coded 
in a DCB macro instruction (or the DEVD operand is omitted, 
which causes a default to DA), the data control block 
constructed during assembly could later be used for any of 
the other devices, but, if DEVD-RB is coded, the data 
control block can be used only with a card reader or card 
reader punch. Unless you are certain that device 
interchangeability is not required, you should either code 
DEVD-DA or omit the operand and allow it to default to DA. 

If system input is directed to an intermediate storage 
device, the DEVD operand is omitted, and the job control 
language for the problem program designates the system 
input device to be used. Likewise, if system output is 
directed to an intermediate storage device, the DEVD 
operand is omitted, and the job control language for the 
problem program designates the system output device to be 
used. If DEVD=PR, PC, or RD is coded, the DCB macro should 
not be coded within the first 16 bytes of addressability 
for the control section. 

The DEVD operand is discussed below according to individual 
device type: 

DEVD=M 

I,KEYLEN=ab^Rl 

specifies that the data control block can be used for 
a direct access device (or any of the other device 
types described following DA). 

KEYLENSahsase 

The KEYLEN operand can be specified only for data 
sets that reside on direct access devices. 

Because the KEYLEN is usually coded without a 
DEVD operand (default taken), the description of 
the KEYLEN operand is in alphabetic sequence with 
the other operands. 
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DEVD=TA 

11 DEN={1121314}3 
[ t TRTCH = {C|E|ETIT}1 

Specifies that the data control block can be used for 
a magnetic tape data set (or any of the other device 
types described following TA). If TA is coded, the 
following optional operands can be coded: 

DEN={1|2|3|4} 

The DEN operand specifies the recording density 
in the number of bits-pei—inch per track as shown 
in the following: 

Recording Density 

\ DEN 7-Track 9-Track 18-Track 

1 556 N/A N/A 

2 800 800 (NRZI ) 1 N/A 

3 N/A 1600 (PE) 2 N/A 

4 N/A 6250 (GCR) 3 N/A 

1 NRZI is for nonreturn—to—zero inverted mode. 

2 PE is for phase encoded mode. 

3 GCR is for group coded recording mode. 

If the DEN operand is not supplied by any source, 
the highest applicable density is assumed. 

TRTCH=£C|EIETIT} 

The TRTCH operand specifies the recording 
technique for 7-track tape. One of the above 
4-character combinations can be coded. If the 
TRTCH operand is omitted, odd parity with no 
translation or conversion is assumed. The 
characters that can be specified ares 

C 

specifies that the data-conversion feature 
is used with odd parity and no translation. 

E 

specifies even parity with no translation or 
conversion. 

ET 

specifies even parity with BCDIC to EBCDIC 
translation required and no data-conversion 
feature. 

T 

specifies that BCDIC to EBCDIC translation 
is required with odd parity and no 
data-conversion feature. 

DEVD=PR 

[,PRTSP={0|1|2|3}1 

Specifies that the data control block is used for an 
on-line printer (or any of the other device types 
following PR). If PR is coded, the following optional 
operand can be coded: 

PRTSP=C0UI2|3J 

The PRTSP operand specifies the line spacing on 
the printer. This operand is not valid if the 
RECFN operand specifies either machine (RECFM=M), 
ISO/ANSI/FIPS (RECFM=A) control characters. If * 
the PRTSP operand is not specified from any 
source, 1 is assumed. 
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The characters that can be specified are: 

0 

specifies that spacing is suppressed (no 
space), 

1 

specifies single spacing. 

2 

specifies double spacing (one blank line 
between printed lines). 

3 

specifies triple spacing (two blank lines 
between printed lines). 

DEVD=PC 

E,M0DE=CC|I3 
[ 9 STACK=C11 2 }1 

[,FUNC=CUPiPWEXTJ IR1RPCDJIRMET1IRWPEXTHD11 W£T313 

Specifies that the data control block is used for a 
card punch (or any of the other device types following 
PC). If PC is coded/ the following optional operands 
can be specified? 

M0DE=EC|I3 

The MODE operand specifies the mode of operation 
for the card punch. The characters that can be 
specified (if the MODE operand is omitted/ E is 
assumed) are? 

C 

specifies that the cards are to be punched 
in card image mode. In card image mode/ the 
12 rows in each card column are punched from 
two consecutive bytes in virtual storage. 
Rows 12 through 5 are punched from the 
low-order 6 bits of one byte and rows 4 
through 9 are punched from the low-order 6 
bits ©f the following byte. 

E 

specifies that cards are to be punched in 
EBCDIC code. 

STACK~CII23 

The STACK operand specifies the stacker bin where 
the card is placed after punching is completed. 

If this operand is omitted/ stacker number 1 is 
used. The characters that can be specified are: 

1 

specifies stacker number 1, 

2 

specifies stacker number 2. 

FUNC=U!P|PW£XT2 |R|RPm |RWmiRWPCXTHD3|Wm} 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources/ a data set 
opened for input defaults to read only/ and a 
data set opened for output defaults to punch 
only. The characters that can be specified in 
the FUNC operand ares 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used/ an 8Q“byie 
data protection image (DPI) must have been 
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previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output/punch 
portion of a read and punch or read punch 
and print operation. 


I 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line print option is 
used. The two-line print option allows two 
lines of data to be printed on the card 
(lines 1 and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case, the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified, the data 

protection image (DPI) must be specified in the 
FCB parameter of the DD statement for the data 
set. 


DEVD=RD 

[ t MODE= CC|E][0|R]] 

[ t STACK={11 2}1 

C,FUNC={I |P|PW[XT11R|RPED1IRWIT3IRWPCXTHD3IWCT1J1 

Specifies that the data control block is used with a 
card reader or card read punch. If RD is specified, 
the data control block cannot be used with any other 
device type. When RD is coded, the following optional 
operands can be specified: 

M0DE=CC|JE3t0|Rl 

The MODE operand specifies the mode of operation 
for the card reader. The characters that can be 
specified are: 

C 

specifies that the cards to be read are in 
card image mode. In card image mode, the 12 
rows in each card column are read into two 
consecutive bytes of virtual storage. Rows 
12 through 3 are read into one byte and rows 
4 through 9 are read into the following 
byte. 
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specifies that the cards to be read contain 
data in EBCDIC code. 

0 

specifies that the program runs in 
optical-mark-read mode (3505 card reader). 

R 

specifies that the program runs in 
read-column-eliminate mode (3505 card reader 
or 3525 card punch, read feature). 

Note: If the MODE operand for a 3505 or 3525 is 

specified in the DCB subparameter of a DD 
statement, either C or E must be specified if R 
or 0 is specified. 

STACK=C1I2} 

The STACK operand specifies the stacker bin where 
the card is placed after reading is completed. 

If this operand is omitted, stacker number 1 is 
used. The characters that can be specified are: 

1 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNC={I|P|PWCXT1 IRIRPCD3IRWCT3IRWPIXTHDJI WET!} 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources, a data set 
opened for input defaults to read only, and a 
data set opened for output defaults to punch 
only. The characters that can be specified in 
the FUNC operand ares 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used, an 80-byte 
data protection image (DPI) must have been 
previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output/punch 
portion of a read and punch or read punch 
and print operation. 

I 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line print option is 
used. The two-line print option allows two 
lines of data to be printed on the card 
(lines 1 and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
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either case* the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 


W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified, the 

data protection image (DPI) must be 
specified in the FCB subparameter of the DD 
statement for the data set. 

Source: The DEVD operand can be supplied only in 

the DCB macro instruction. However, the optional 
operands can be supplied in the DCB macro 
instruction, the DCB subparameter of a DD 
statement, or by the problem program before 
completion of the data control block exit 
routine. 


DSORG={PS|PSUJ 

The DSORG operand specifies the organization of the data 
set and if the data set contains any location-dependent 
information that would make it unmovable. The following 
can be specified: 

PS 

specifies a physical sequential data set. 

PSU 

specifies a physical sequential data set that contains 
location-dependent information that would make it 
unmovable. 

Source: The DSORG operand must be coded in the DCB macro 

instruction. 

EODAD=neljexB 

The EODAD operand specifies the address of the routine 
given control when the end of an input data set is reached. 
If the record format is RECFM=FS or FBS> the end-of-data 
condition is sensed when a file mark is read or when more 
data is requested after reading a truncated block. The 
end-of-data routine is entered when the CHECK macro 
instruction determines that the READ macro instruction 
reached the end of the data. If the end of the data set is 
reached but no EODAD address has been supplied, the task is 
abnormally terminated. For additional information on the 
EODAD routine, see Mla.-A d nii Msicaii m . Guide » 

When the data set has been opened for UPDAT and volumes are 
to be switched, the problem program should issue a FEOV 
macro instruction after the EODAD routine has been entered. 

Source: The EODAD operand can be supplied in the DCB macro 
instruction or by the problem program before the end of the 
data set is reached. 

EXLST= relexP 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program requires additional processing for user 
labels, user totaling, data control block exit routine, 
end-of-volume, block count exits, to define a forms control 
buffer (FCB) image, use the JFCBE exit (for the IBM 3800 
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Printing Subsystem), or to use the DCB abend exit for abend 
condition analysis. 

For the format and requirements of exit list processing, 
see Appendix D, f, DCB Exit List Format and Contents” on 
page 206. For additional information about exit list 
processing, see Data..• 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program any time before the 
exit is required by the problem program. 

KEYLEN= absexp (maximum value is 255) 

The KEYLEN operand specifies the length, in bytes, for the 
key associated with each data block in a direct access 
device data set. If the key length is not supplied from 
any source before completion of the data control block exit 
routine, a key length of zero (no keys) is assumed. 

Source: The KEYLEN operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by the data set 
label of an existing data set. If KEYLEN=0 is specified in 
the DCB macro instruction, a special indicator is set in 
RECFM so that KEYLEN cannot be supplied from the DCB 
subparameter of a DD statement or data set label of an 
existing data set. KEYLEN=0 can be coded only in the DCB 
macro instruction and will be ignored if specified in the 
DD statement. 

LRECL={ahSfiKfilXJ 

The LRECL operand specifies the length, in bytes, for 
fixed-length records, or it specifies the maximum length, 
in bytes, for variable-length records. LRECL=X is used for 
variable-length spanned records that exceed 32756 bytes. 
Except when variable-length spanned records are used, the 
value specified for the LRECL operand cannot exceed the 
value specified for the BLKSIZE operand. 

Except when variable-length spanned records are used, the 
LRECL operand can be omitted for BSAM; the system uses the 
value specified in the BLKSIZE operand. If the LRECL value 
is coded, it is coded as described in the following. 

For fixed-length records that are unblocked, the value 
specified in the LRECL operand should be equal to the value 
specified in the BLKSIZE operand. For blocked fixed-length 
records, the value specified in the LRECL operand should be 
evenly divisible into the value specified in the BLKSIZE 
operand. However, the LRECL operand will not be validity 
checked. 

For variable-length records, the value specified in LRECL 
must include the maximum data length (up to 32752 bytes) 
plus 4 bytes for the RDW. 

For undefined-length records, the LRECL operand should be 
omitted; the actual length can be supplied dynamically in a 
READ/WRITE macro instruction. When an undefined-length 
record is read, the actual length of the record is returned 
by the system in the DCBLRECL field of the data control 
block. 

When BSAM is used to create a BDAM data set with 
variable-length spanned records, the LRECL value should be 
the maximum data length (up to 32752) plus four bytes for 
the record descriptor word (RDW), or, if the logical record 
length is greater than 32756 bytes, LRECL=X is specified. 

Source: The LRECL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
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block exit routine, or by the data set label of an existing 
data set. 

MACRF={{(REC|P3)} 
ccwcciPiun 
CCRCC1PKWECIP3 )}} 

The MACRF operand specifies the type of macro instructions 
(READ, WRITE, CNTRL, and NOTE/POINT) that are used with the 
data set being created or processed. The BSAM MACRF 
operand also provides the special form CMACRF=WL) for 
creating a BDAM data set. The MACRF operand can be coded 
in any of the forms shown above. The following characters 
can be coded: 

C 

specifies that the CNTRL macro instruction is used 
with the data set. If C is specified to be used with 
a card reader, a CNTRL macro instruction must follow 
every input request. 

L 

specifies that BSAM is used to create a BDAM data set. 
This character can be specified only in the 
combination MACRF^WL. 

P 

specifies that POINT macro instructions are used with 
the data set being created or processed. Specifying P 
in the MACRF operand also automatically provides the 
capability of using NOTE macro instructions with the 
data set. P should not be coded for SYSIN or SYSOUT 
data sets. (See explanations of the NOTE and POINT 
macro instructions.) 

R 

specifies that READ macro instructions are to be used. 

W 

specifies that WRITE macro instructions are to be 
used. 

Mote: Each READ and WRITE macro instruction issued in the 

problem program must be checked for completion by a CHECK 

macro instruction. 

Source: The MACRF operand must be specified in the DCB 

macro instruction. 

NCP= absexp (maximum value is 99) 

The NCP operand specifies the maximum number of READ/WRITE 
macro instructions that will be issued before the first 
CHECK macro instruction is issued to test for completion of 
the I/O operation. The maximum number may be less than 99, 
depending on the amount of virtual storage available in the 
region. If the NCP operand is omitted, 1 is assumed. 

Source: The NCP operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block open exit routine. 

OPTCD=C{BJ 

cn 

CUEC3} 

ccmcBHun 

{HEZHBD 

uicuun 

{WECHTHBHUn 

CZECHTHBHUn 

CQEC3EB3ETJ 

izn 

The OPTCD operand specifies the optional services that are 
used with the BSAM data set. Two of the optional services, 
OPTCD=B and OPTCD=H# cannot be specified in the DCB macro 
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instruction. They are requested in the DCB subparameter of 
a DD statement. Because all optional services requests 
must be supplied by the same source# the OPTCD operand must 
be omitted from the DCB macro instruction if either of 
these options is requested in a DD statement. The 
characters that can be specified (in any order# in one of 
the combinations shown above# and without commas between 
characters) are: 

C 

requests that chained scheduling be used. OPTCD=C 
cannot be specified if BFTEK“R is specified for the 
same data control block. Also# chained scheduling 
cannot be specified for associated data sets or 
printing on a 3525 and is ignored for direct access 
devices. 

Note: Except where it is not allowed# chained 

scheduling is used whether requested or not. For 
conditions under which chained scheduling is not 
allowed# see raiig.n..£uidfl• 

J 

specifies that the first data byte in the output data 
line will be a 3800 table reference character. This 
table reference character selects a particular 
character arrangement table for the printing of the 
data line and can be used singly or in conjunction 
with ISO# ANSI, or machine control characters. This 
option is valid only for the IBM 3800 Printing 
Subsystem. For information on the table reference 
character and character arrangement table modules# see 

IM-MM £ rl nil mm . 

Q 

requests that ISCII/ASCII tape records in an input 
data set be converted to EBCDIC code after the input 
record has been read. Translation is done at CHECK 
time for input. It also requests that an output 
record in EBCDIC code be converted to ISCII/ASCII code 
before the record is written. For further information 
on this conversion# see f8 Variable-Length 
Records—Format D" in Data Administration Guide . 

The Q option is unconditionally set by open routines 
if the data set is for a tape with ISO/ANSI/FIPS 
labels. For more information about ISCII/ASCII to 
EBCDIC or EBCDIC to ISCII/ASCII translations# see 

Ma. g n s ii. g .,J .^p . g . . 

±i qxi ♦ 

T 

requests the user totaling function. If this function 
is requested# the EXLST operand should specify the 
address of an exit list to be used. T cannot be 
specified for SYSIN and SYSOUT data sets. 

U 

is specified only for a printer with the universal 
character set CUCS) feature or the 3800 Printing 
Subsystem. This option unblocks data checks (permits 
them to be recognized as errors) and allows analysis 
by the appropriate error analysis routine (SYNAD exit 
routine). If the U option is omitted# data checks are 
not recognized as errors. 

For the IBM Mass Storage System (MSS)* U requests 
window processing to reduce the amount of staging 
space required to process large sequential data sets 
on MSS. DS0RG must specify physical sequential# 
allocation must be in cylinders# and type of I/O 
accessing must be either INPUT only or OUTPUT only. 
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W 

for DASD, specifies that the system is to perform a 
validity check on each record written on a direct 
access device. For buffered devices, specifies that 
device end interrupt is to be given only when a record 
is physically on the device. By specifying 0PTCD=W 
with buffered devices, you do not benefit from the 
performance advantage of buffering. 

Z 

Requests, for magnetic tape, input only, the system to 
shorten its normal error recovery procedure to 
consider a data check as a permanent I/O error after 
five unsuccessful attempts to read a record. This 
option is available only if it has also been specified 
as a SYSGEN option. OPTCD-Z is meant to be used when 
a tape is known to contain errors and there is no need 
to process every record. The error analysis routine 
CSYNAD) should keep a count of permanent errors and 
terminate processing if the number becomes excessive. 

Note: The following describes the optional services that 

can be requested in the DCB subparameter of a DD statement. 
If either of these options is requested, the complete OPTCD 
operand must be supplied in the DD statement. 

B 

If OPTCD=B is specified in the DCB subparameter of a 
DD statement, it forces the end-of-volume (EOV) 
routine to disregard the end-of-file recognition for 
magnetic tape. Nhen this occurs, the EOV routine uses 
the number of volume serial numbers to determine end 
of file. 

H 

If OPTCD=H is specified in the DCB subparameter of a 
DD statement, it specifies that the DOS/OS interchange 
feature is being used with the data set. 

Sources The OPTCD operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, in 
the data set label for direct access devices, or by the 
problem program before completion of the DCB open exit 
routine or JFCBE exit routine. However, all optional 
services must be requested from the same source. 


R£CFM=C£Um£A|N33 

CVEBiS T1BSIBTHAIM13 

CDEBIS BSHA33 

{FEB|S TiBS|BT3EA|H3J3 

The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 
All the record formats shown above can be specified, but in 
those record formats that specify blocked records, the 
problem program must perform the blocking and deblocking 
of logical records; BSAM recognizes only data blocks. The 
following describes the characters that can be specified: 


A 

specifies that the records in the data set contain 
International Organization for Standardization (ISO) 
or American National Standards Institute (ANSI) 
control characters. For a description of control 
characters, see Appendix E, f, Control Characters” on 
page 208. 

B 

specifies that the data set contains blocked records. 
D 

specifies that the data set contains variable-length 
ISCII/ASCII tape records. 
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F 

specifies that the data set contains fixed-length 
records. 

M 

specifies that the records in the data set contain 

machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 20S. RECFM-M cannot be used with 
ISCII/ASCII data sets. 

S 

S specifies, for fixed-length records, that the 
records are to be written as standard blocks! with the 
exception of the last block or track in the data set, 
the data set contains no truncated blocks or unfilled 
tracks. Do not code S to retrieve records from a data 
set that was created using a REGFM other than 
standard. 

For variable-length records, including variable-length 
ISCII/ASCII, S specifies that a record can span more 
than one block. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track of a direct access device and 
the remainder of the record to be written on the 
following track or tracks as required. Chained 
scheduling cannot be requested if track overflow is 
used. 

y 

specifies that the data set contains undefined-length 
records. 

Note: Format-U records are not supported for Version 

3 ISO/ANSI/FIPS tapes. An attempt to process a 
format-U record for a Version 3 tape results in a 
label validation installation exit being taken. 

Only ISO/ANSI Version 1 (ISO 1001-1969 or ANSI 
X3 .27-1969) format-U records can be used for input. 

V 

specifies that the data set contains variable-length 
records. 


Notes: 

® RECFM*V cannot be specified for a card reader data set 
or an ISO/ANSI/FIPS tape data set. 

• RECFM-VBS does not provide the spanned record function! 
if this format is used, the problem program must block 
and segment the records. 

• RECFM"BB3 or RECFM=DS does not provide the spanned 
record function! if this format is used, the problem 
program must block and segment the records. 

• RECFM-VS, VBS, B$, or DBS cannot be specified for a 
SY3IN data set. 

• RECFM^V cannot be used for a 7-track tape unless the 

data conversion feature (TRTCH-0) is used. 

Sources The RECFN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 

block exit routine, or by the data set label of an existing 

data set. 
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SYNAD= relexp 

The SYNAD operand specifies the address of the error 
analysis (SYNAD) routine to be given control if an 
uncorrectable input/output error occurs. The contents of 
the registers when the error analysis routine is given 
control are described in Appendix A/ f, Status Information 
Following an Input/Output Operation” on page 190. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. If control is returned to the system, the system 
returns control to the problem program and proceeds as 
though no error had been encountered. 

If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error routine address at any time. 

When operating a directly allocated 3800 Model 3 using 
all-points addressability, the SYNAD routine will be entered if 
Print Services Facility (PSF) detects an unrecoverable error. 
However, no error information is available to the SYNAD routine 
for a directly allocated 3800 Model 3. If you want to continue 
processing, you must close and reopen the data set to restart 
PSF. For more information on the 3800 Model 3, see IBM 3800 
Pri n tin g .Subsystem -Pr ogra mmanls-dui.de for Models 3 and 8. 
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The data control block for a queued indexed sequential access 
method (QISAM) data set is constructed during assembly of the 
problem program. The DSORG and MACRF operands must be coded in 
the DCB macro instruction, but the other DCB operands can be 
supplied from other sources. Each QISAM DCB operand description 
contains a heading, "Source.” The information under this 
heading describes the sources that can supply the operand to the 
data control block. 

The DCB macro for QISAM is written: 




DCB 


EBFALN={F||}}1 
[,BLKSIZE=ai2S£xeJ 
[,BUFCB= reIexp 3 
i f BUFL = ab.s.g2SJR 3 
C ,BUFNO=absg.K£ 3 
[,CYLOFL=a 

E,DDNAME= svmbol 3 1 
f DSORG=CIS|ISU} 

E,EODAD=rsl.eXfl 3 

E,EXLST=relexE 3 

E t KEYLEN= absexo 1 
E,LRECL=ab s s. X B 3 
f MACRF={C(PM)} 

{(PL)} 

{(GME,S{K|1}2)} 
{(GLE,S{K|I}H,PU])}} 
EyNTM=ahs.e2SBl 

E, OPTCD= EIHLHMHRHUHWIEY]] 
E,RECFM={VEB)|FEB)}3 
E , RKP=abgexp.) 

E,SYNAD= relexp ] 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the DCB operands that can be specified 
when a QISAM data set is being created or processed: 

BFALN={F|p} 

The BFALN operand specifies the alignment of each buffer in 
the buffer pool when the buffer pool is constructed 
automatically or by a GETPOOL macro instruction. If the 
BFALN operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 

12 

specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool, the problem program must provide a storage 
area for the buffers and control buffer alignment. 

Source: The BFALN operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BLKSIZE= absexp (maximum value KEYLEN + BLKSIZE is 32760) 

The BLKSIZE operand specifies the length, in bytes, for 
each data block when fixed-length records are used, or it 
specifies the maximum length in bytes, for each data block 
when variable-length records are used. The BLKSIZE operand 
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must be specified when an ISAM data set is created. When 
an existing ISAM data set is processed, the BLKSIZE operand 
must be omitted (it is supplied by the data set label). 

Track capacity of the direct access device being used must 
be considered when the block size for an ISAM data set is 
specified. For fixed-length records, the sum of the key 
length, data length, and device overhead plus 10 bytes (for 
ISAM use) must not exceed the capacity of a single track on 
the direct access device being used. For variable-length 
records, the sum of the key length, block-descriptor word 
length, record-descriptor word length, data length, and 
device overhead plus 10 bytes (for ISAM use) must not 
exceed the capacity of a single track on the direct access 
device being used. Device capacity and device overhead are 
described in Appendix C, f, Device Capacities” on page 203. 
For additional information about device capacity and space 
allocation, see Data Administration Guide . 

If fixed-length records are used, the value specified in 
the BLKSIZE operand must be an integral multiple of the 
value specified in the LRECL operand. 

Source: When an ISAM data set is created, the BLKSIZE 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed, the 
BLKSIZE operand must be omitted from the other sources, 
allowing the data set label to supply the value. 

BUFCB = nfiJLexB 

The BUFCB operand specifies the address of the buffer pool 
control block constructed by a BUILD macro instruction. 

If the system constructs the buffer pool automatically or 
if the buffer pool is constructed by a GETPOOL macro 
instruction, the system places the address of the buffer 
pool control block into the data control block, and the 
BUFCB operand should be omitted. 

Source: The BUFCB operand can be supplied in the DCB macro 

instruction or by the problem program before completion of 
the data control block exit routine. 

BUFL= absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is 
constructed by a BUILD or GETPOOL macro instruction. When 
the data set is opened, the system computes the minimum 
buffer length required and verifies that the length in the 
buffer pool control block is equal to or greater than the 
minimum length required. The system then inserts the 
computed length into the data control block. 

The BUFL operand is not required for QISAM if the system 
acquires buffers automatically; the system computes the 
minimum buffer length required and inserts the value into 
the data control block. 

If the buffer pool is constructed with a BUILD or GETPOOL 
macro instruction, additional space is required in each 
buffer for system use. For a description of the buffer 
length required for various ISAM operations, see Data 
A d m i n i . s lead l .p n -fiu i ds * 

Source: The BUFL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 

BUFNO= absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
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the number of buffers to be acquired automatically by the 
system. If the BUFNO operand is omitted/ the system 
automatically acquires two buffers. 

If the GETPOOL macro instruction is used to construct the 
buffer pool/ the BUFNO operand is not required. 

Source: The BUFNO operand can be supplied in the DCB macro 

instruction/ in the DCB subparameter of a DD statement/ or 
by the problem program before completion of the data 
control block exit routine. 

CYLOFL= absexp (maximum value is number of tracks minus 1) 

The CYLOFL operand specifies the number of tracks on each 
cylinder that is reserved as an overflow area. The 
overflow area is used to contain records that are forced 
off prime area tracks when additional records are added to 
the prime area track in ascending key sequence. ISAM 
maintains pointers to records in the overflow area so that 
the entire data set is logically in ascending key sequence. 
Tracks in the cylinder overflow area are used by the system 
only if OPTCD=Y is specified. For a more complete 
description of cylinder overflow area/ refer to the space 
allocation section of Data Administration Guide . 

Source: When an ISAM data set is created/ the CYLOFL 
operand can be supplied in the DCB macro instruction/ in 
the DCB subparameter of a DD statement/ or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed/ the 
CYLOFL operand should be omitted/ allowing the data set 
label to supply the operand. 

DDNAME=symhal 

The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 

Source: The DDNAME operand can be supplied in the DCB 

macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 

DSORG={IS|ISUJ 

The DSORG operand specifies the organization of the data 
set and indicates if the data set contains any 
location-dependent information that would make it 
unmovable. The following characters can be specified: 

IS 

specifies an indexed sequential data set organization. 

ZSU 

specifies an indexed sequential data set that contains 
location-dependent information. ISU can be specified 
only when an ISAM data set is created. 

Source: The DSORG operand must be specified in the DCB 

macro instruction. When an ISAM data set is created/ 
DS0RG=IS or ISU must also be specified in the DCB 
subparameter of the corresponding DD statement. 

EODAD=rjelfiXR 

The EODAD operand specifies the address of the routine to 
be given control when the end of an input data set is 
reached. For ISAM/ this operand would apply only to scan 
mode when a data set is open for an input operation. 

Control is given to this routine when a GET macro 
instruction is issued and there are no more input records 
to retrieve. For additional information on the EODAD 
routine, see Pat a^dmini.s.t[:a.tiQn .G u ide- 

Source: The EODAD operand can be supplied in the DCB macro 
instruction or by the problem program before the end of the 
data set is reached. 
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EXLST=rjelfiXP, 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required only if 
the problem program uses the data control block exit 
routine for additional processing. 

For the format and requirements for exit list processing, 
see Appendix D, ”DCB Exit List Format and Contents 11 on 
page 206 . For additional information about exit list 

Sources The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program before the associated 

exit is required, 

KEYLEN= absexp (maximum value is 255) 

The KEYIEM operand specifies the length, in bytes, of the 
key associated with each record in an indexed sequential 
data set. When blocked records are used, the key of the 
last record in the block (highest key) is used to identify 
the block. However, each logical record within the block 
has its own identifying key that ISAM uses to access a 
given logical record. 

Sources When an ISAM data set is created, the KEYLEN 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed, the 
KEYLEN operand must be omitted, allowing the data set level 
to supply the key length value. KEYLEN-Q is not valid for 
an ISAM data set. 

LREOL- absexp (maximum value is device-dependent) 

The LRECL operand specifies the length, in bytes, for 
fixed-length records, or it specifies the maximum length, 
in bytes, for variable-length records. The value specified 
in the LRECL operand cannot exceed the value specified in 
the BLKSIZE operand. When fixed, unblocked records are 
used and the relative key position (as specified in the RKP 
operand) is zero, the value specified in the LRECL operand 
should include only the data length (the key is not written 
as part of the fixed, unblocked record when RKP“0). 

The track capacity of the direct access device being used 
must be considered if maximum-length logical records are 
being used. For fixed-length records, the sum of the key 
length, data length, and device overhead plus 10 bytes (for 
ISAM use) must not exceed the capacity of a single track on 
the direct access device being used. For variable-length 
records, the sum of the key length, data length, device 
overhead, block-descriptor-word length, and 
record-descriptor-word length plus 10 bytes (for ISAM use) 
must not exceed the capacity of a single track on the 
direct access device being used. Device capacities are 
shown in Appendix C, f? Device Capacities” on page 203. For 
additional information about device capacity and space 
allocation, see fiaMJLdmi n i g.tra-ti.QJxJSiiiite • 

Sources When an ISAM data set is created, the LRECL operand 
can be supplied in the DCB macro instruction, in the DCB 
subparameter of a DJ) statement, or by the problem program 
before completion of the data control block exit routine. 
When an existing ISAM data set is processed, the LRECL 
operand must be omitted, allowing the data set label to 
supply the value. 

MACRF«£{CPM)} 

{CPU! 

{(GMuscKinm 

{CGLC,${KiX!J[,PUim 

The MACRF operand specifies the type of macro instructions, 

the transmittal mode, and type of search to be used with 
the data set being processed. The operand can be coded in 
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any of the combinations shown above; the following 
describes the characters that can be coded. 

The following characters can be specified only when the 
data set is being created (load mode) or additional records 
are being added to the end of the data set (resume load): 

PL 

specifies that PUT macro instructions are used in the 
locate transmittal mode; the system provides the 
problem program with the address of a buffer 
containing the data to be written into the data set. 

PM 

specifies that PUT macro instructions are used in the 
move transmittal mode; the system moves the data to be 
written from the problem program work area to the 
buffer being used. 

The following characters can be specified only when the 
data set is being processed (scan mode) or when records in 
an ISAM data set are being updated in place: 

GL 

specifies that GET macro instructions are used in the 
locate transmittal mode; the system provides the 
problem program with the address of a buffer 
containing the logical record read. 

GM 

specifies that GET macro instructions are used in the 
move mode; the system moves the logical record from 
the buffer to the problem program work area. 

I 

specifies that actual device addresses (MBBCCHHR) are 
used to search for a record (or the first record) to 
be read. 

K 

specifies that a key or key class is used to search 
for a record (or the first record) to be read. 

PU 

specifies that PUTX macro instructions are to be used 
to return updated records to the data set. 

S 

specifies that SETL macro instructions are used to set 
the beginning location for processing the data set. 

Sources The MACRF operand must be coded in the DCB 
macro instruction. 

NTM = absexp (maximum value is 99) 

The NTM operand specifies the number of tracks to be 
created in a cylinder index before a higher-level index is 
created. If the cylinder index exceeds this number* a 
master index is created by the system; if a master index 
exceeds this number* the next level of master index is 
created. The system creates as many as three levels of 
master indexes. The NTM operand is ignored unless the 
master index option (OPTOB-M) is selected. 

Sources Hhen an ISAM data set is being created* the NTM 
operand can foe supplied in the DCB macro instruction* in 
the DCB subparameter of a DD statement* or by the problem 
program before completion of the data control block exit 
routine. Hhen an ISAM data set is being processed* master 
index information is supplied to the data control block 
from the data set label* and the NTM operand must be 
omitted. 
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0PTCD=m[L3[MnR]CU]EWHY] 

The OPTCD operand specifies the optional services performed 
by the system when an ISAM data set is being created or 
updated. The following describes the characters that can 
be specified (these characters can be specified in any 
order, and no commas are allowed between characters)s 

I 

specifies that the system uses the independent 
overflow areas to contain overflow records. Note that 
it is only the use of the allocated independent 
overflow area that is optional. Under certain 
conditions, the system designates an overflow area 
that was not allocated for independent overflow by the 
problem program. See s? Alloca ting Space for an Indexed 
Sequential Data Set” in Mj&Jkd m i * 

L 

specifies that the data set will contain records 
flagged for deletion. A record is flagged for 
deletion by placing a hexadecimal value of *FF® in the 
first data byte. Records flagged for deletion remain 
in the data set until the space is required for 
another record to be added to the track and are 
ignored during sequential retrieval of the ISAM data 
set (QISAM, scan mode). This option cannot be 
specified for blocked fixed-length records if the 
relative key position is 0 (RKP=0), or it cannot be 
specified for variable-length records if the relative 
key position is 4 (RKP=4). 

Nhen an ISAM data set is being processed with BISAM, a 
record with a duplicate key can be added to the data 
set (WRITE KN macro instruction), only when OPTCD-L 
has been specified and the original record (the one 
whose key is being duplicated) has been flagged for 
deletion. 

M 

specifies that the system create and maintain a master 
index(es) according to the number of tracks specified 
in the NTM operand. 

R 

specifies that the system place reorganization 
statistics in the DCBR0RG1, DCBRQRG2, and DCBR0RG3 
fields of the data control block. The problem program 
can analyze these statistics to determine when to 
reorganize the data set. If the OPTCD operand is 
omitted, the reorganization statistics are 
automatically provided. However, if the OPTCD operand 
is supplied, OPTCD-R must be specified to obtain the 
reorganization statistics. 

U 

specifies that the system is to accumulate track index 
entries in storage and write them as a group for each 
track of the track index. QFTCD=U can be specified 
only for fixed-length records. The entries are 
written in fixed-length unblocked format. 

W 

specifies that the system is to perform a validity 
check on each record written. 

Y 

specifies that the system is to use the cylinder 
overflow area(s) to contain overflow records. If 
OPTCD=Y is specified, the CY10FL operand specifies the 
number of tracks to be used for the cylinder overflow 
area. The reserved cylinder overflow area is not used 
unless OPTCD“Y is specified. 
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Sources When an ISAM data set is created, the OPTCD 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before an OPEN macro instruction is issued to open 
the data set. However, all optional services must be 
requested from the same source. When an existing ISAM data 
set is processed, the optional service information is 
supplied to the data control block from the data set label, 
and the OPTCD operand should be omitted. 

RECFM={VIB3|FIB]} 

The RECFM operand specifies the format and characteristics 
of the records in the data set. If the RECFM operand is 
omitted, variable-length records (unblocked) are assumed. 
The following describes the characters that can be 
specified: 

B 

specifies that the data set contains blocked records. 

F 

specifies that the data set contains fixed-length 
records. 

V 

specifies that the data set contains variable-length 
records. 

Source: When an ISAM data set is created, the RECFM 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before an OPEN macro instruction is issued to open 
the data set. When an existing ISAM data set is processed, 
the record format information is supplied by the data set 
label, and the RECFM operand should be omitted. 

If the record format information is supplied in the DD 
statement or the DCB, it must agree with the information in 
the data set label. 

RKP=ab£jexe 

The RKP operand specifies the relative position of the 
first byte of the key within each logical record. For 
example, if RKP=9 is specified, the key starts in the 10th 
byte of the record. The delete option (OPTCD=L) should not 
be specified if the relative key position is the first byte 
of a blocked fixed-length record or the fifth byte of a 
variable-length record. If the RKP operand is omitted, 
RKP=0 is assumed. 

If unblocked fixed-length records with RKP=0 are used, the 
key is not written as a part of the data record, and the 
delete option can be specified. If blocked fixed-length 
records are used, the key is written as part of each data' 
record; either RKP must be greater than zero or the delete 
option must not be used. 

If variable-length records (blocked or unblocked) are used, 
and if the delete option is not specified, RKP must be 4 or 
greater; if the delete option is specified, RKP must be 
specified as 5 or greater. The 4 additional bytes allow 
for the block descriptor word in variable-length records. 

Source: When an ISAM data set is created, the RKP operand 
can be supplied in the DCB macro instruction, in the DCB 
subparameter of a DD statement, or by the problem program 
before completion of the data control block exit routine. 
When an existing ISAM data set is processed, the RKP 
information is supplied by the data set label and the RKP 
operand should be omitted. 
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svNAP= r .gl exp 

The SYNAD operand specifies the address of the error 
analysis routine given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 190. 

The error analysis routine must not use the save area 
pointed to by register 13/ because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. When control is returned in this manner/ the 
system returns control to the problem program and proceeds 
as though no error had been encountered; if the error 
analysis routine continues processing/ the results may be 
unpredictable. 

For additional information on error analysis routine 
processing for indexed sequential data sets, see Data 
A d ministrati.Dn_ 6u ide. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error analysis routine address at any 
time. 


Macro Instruction Descriptions 71 





DCB (QSAM) 




imm ; k t m i vi»i : i 


The data control block for the queued sequential access method 
(QSAM) is constructed during assembly of the problem program. 

The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other DCB operands can be supplied to the 
data control block from other sources. Each DCB operand 
description contains a heading, '•Source. 11 The information under 
this heading describes the sources from which the operand can be 
supplied. 


For information on additional 
IBM 3890 Document Processor, 


operands for the DCB macro for the 






1 i A* 1»J >1 



72 MVS/XA Data Administration: Macro Instruction Reference 






DCB (QSAM) 


The DCB macro for QSAM is written! 


Isymbol! 


DCB 


[BFALN={F|Q}1 
[,BFTEK={£|A}1 
[ ,BLKSIZE= absexp ] 

[,BUFCB= r g l o x p ! 

[ ,BUFL= absexp 3 
[,BUFNO=ab sexp l 

[ »BUFOFF=C absexp IL31 
[ t DDNAME= svmbol 1 1 
UDEVD=«M} 

{TA 

[ t DEN={1|2|3|4}1 
[ t TRTCH={C|E|ET|T}1} 

{PR 

I,PRTSP={0I1|2|3}]} 

{PC 

[,MODE=[ClEHR]l 

I,STACK={1|2}1 

{ t FUNC={11P|PW[XT31RIRPCD31 

RWCT]|RWPIXT1EDIIWIT1}]} 

{RD 

[ t MODE=CC|f][0|Rl] 

C,STACK={1|2}] 

1 1 FUNC={I I P |PWCXT]|R|RPtDl| 

RWtT]|RWPIXT][D1|MET1}]}}] 


XI OK I nnnnn K}1 
T|D}[Cl)} 

D}[C] )} 

D}[Cl,P{M|L|T|D}[C3)}} 


t DSORG={PS|PSU} 

[ t EODAD-r s ie x R! 

[,EROPT={ACC|SKPI ABE }] 

[»EXLST= relexp l 
[ t LRECL={ absexp 
t MACRF={{(G{MIL 
{IP{H|L|T 
{E G{M|LIT 
C,OPTCD={{B} 

{T} 

{ULC1} 

{CITUBHUl} 

{HtZHBl} 

{jiciiun 

{WCCHTHBHUl} 

{ZICHTHBHU1} 

{QICHBHT1}] 

{Z}}] 

I>RECFM={{Q[T][A|M]} 

■CVCBIS3CT3 |StT3 |T3tA|H3} 
{DEBISlItSHAll} 
{FIBISITIBSIBTHAIMJ}}] 
[>SYNAD=r o l sX Rl 


1 This parameter must be supplied before an OPEN macro is 

issued for this DCB; it cannot be supplied in the open exit 
routine. 

The following describes the operands that can be specified in 
the DCB macro instruction for a QSAM data set: 

BFALN={F|Q} 

The BFALN operand specifies the boundary alignment of each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. 

If the data set being created or processed contains 
ISCII/ASCII tape records with a block prefix, the block 
prefix is entered at the beginning of the buffer, and data 
alignment depends on the length of the block prefix. For a 
description of how to specify the block prefix length, 
refer to the description of the BUFOFF operand. 
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The following describes the characters that can be 
specified: 

F 

specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 


specifies that each buffer is on a doubleword 
boundary. 

If the BUILD macro instruction is used to construct the 
buffer pool, the problem program must control buffer 
alignment. 

Source: The BFALN operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
operands are specified, they must be supplied from the same 
source. 

BFTEK={§|A} 

The BFTEK operand specifies the buffering technique that is 
used when the QSAM data set is created or processed. If 
the BFTEK operand is omitted, simple buffering is assumed. 
The following describes the characters that can be 
specified: 

S 

specifies that simple buffering is used. 

A 

specifies that a logical record interface is used for 
variable-length spanned records. When BFTEK=A is 
specified, the open routine acquires a record area 
equal to the length specified in the LRECL field plus 
32 additional bytes for control information. LRECL=0 
is invalid. The LRECL provided at open should be the 
maximum length in bytes. The open routine uses this 
value to acquire the record area. When a logical 
record interface is requested, the system uses the 
simple buffering technique. 

BFTEK=A is invalid with MOVE mode. 

To use the simple technique efficiently, the user should be 
familiar with the three transmittal modes for QSAM and the 
buffering techniques described in P a.ta... A dmini s tr at i on 
fiyj.de. 

Source: The BFTEK operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 

BLKSIZE= absexp (maximum value is 32760 for IBM standard labels) 
The BLKSIZE operand specifies the length, in bytes, of a 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, of a data block for 
variable-length or undefined-length records. 

The actual value that can be specified in the BLKSIZE 
operand depends on the device type and record format being 
used. Device capacities are shown in Appendix C, "Device 
Capacities" on page 203. (For additional information about 
device capacity, refer to Data Administration Guide .) 

For direct access devices when track overflow is used or 
variable-length spanned records are being processed, the 
BLKSIZE operand can be up to the maximum value. For other 
record formats used with direct access devices, the value 
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specified in the BLKSIZE operand cannot exceed the capacity 
of a single track. 

Because QSAM provides a logical record interface, the 
device capacities shown in Appendix C, "Device Capacities" 
on page 203, also apply to a maximum-length logical record* 
One exception to the device capacity for a logical record 
is the size of variable-length spanned records. Their 
length can exceed the value specified in the BLKSIZE 
operand (see the description of the LRECL operand). 

If fixed-length records are used, the value specified in 
the BLKSIZE operand must be an integral multiple of the 
value specified in the LRECL operand. If the records are 
unblocked fixed-Iength records, the value specified in the 
BLKSIZE operand must equal the value specified in the LRECL 
operand if the LRECL operand is specified. 

If variable-length records are used, the value specified in 
the BLKSIZE operand must include the data length (up to 
32756 bytes) plus 4 bytes required for the block descriptor 
word (BDW). For format~B variable-length records, the 
minimum BLKSIZE is 18 bytes. The maximum is 2048 bytes. 

For more information about the BLKSIZE restrictions, see 


If ISCII/ASCII tape records with a block prefix are 
processed, the value specified in the BLKSIZE operand must 
also include the length of the block prefix. If an 
ISCII/A5CIX format DB or DBS tape data set is opened for 
output using QSAM with the system acquiring the buffers and 
BUFOFF-0 specified, the value specified in the BLKSIZE 
operand must be increased by 4 to allow for a 4-byte QSAM 
internal processing area. If BUFL Is specified, the BUFL 
operand value must be increased by 4, instead of the 
BLKSIZE operand value* 

If variable-length spanned records are used, the value 
specified in the BLKSIZE operand can be the best one for 
the device being used or the processing being done. When, 
unit record devices (card or printer) are used, the system 
assumes records are unblocked; the value specified for the 
BLKSIZE operand is equivalent to one print line or one 
card. A logical record that spans several blocks is 
written one segment at a time. 

If undefined-length records are used, the problem program 
can insert the actual record length into the BCBLRECL 
field. See the description of the LRECL operand. 

Sources The BLKSIZE operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a BB 
statement, by the problem program before completion of the 
* data control block exit routine, or by the data sat label 
of an existing data set. 

Note: The maximum block size for Version 3 JS0/ANS1/FIPS 

tapes (ISO 1001-1979 or ANSI X3.27 1978) is 2048 bytes. An 
attempt to exceed 2048 bytes for a Version 3 tape results 
in a label validation installation exit being taken. 

BUFCB-relexp 

The BUFCB operand specifies the address of the buffer pool 
control block constructed by a BUILD or BUILBRCD macro 
instruction. 

If the buffer pool is constructed automatically or by a 
GETP00L macro instruction, the system places the address of 
the buffer pool control block into the data control block, 
and the BUFCB operand should be omitted. 

Sources The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 
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BUFL” absexp (maximum value is 32760) 

The BUFL operand specifies the length* in bytes* of each 
buffer in the buffer pool when the buffer pool is acquired 
automatically* If the BUFL operand is omitted* the system 
acquires buffers with a length equal to the value specified 
in the BLKSIZE operand; if the problem program requires 
larger buffers* the BUFL operand is required. If the data 
sat is for card image mode* the BUFL operand is specified 
as 160 bytes. The description of the BEVB operand contains 
a description of card image mode. 

If the data set contains ISCII/ASCII tape records with a 
block prefix* the value specified in the BUFL operand must 

also include the length of the block prefix. If an 
ISCII/ASCII format DB or DBS tape data set is opened for 
output using Q5AM and if BUFOFF-0 is specified* then the 
BUFL operand value* if specified* must be increased by 4 to 
allow for a 4-byte QSAM internal processing area. 

If the buffer pool is constructed by a BUILD* BUILBRCB* or 
6ETPD0L macro instruction* the BUFL operand is not 
required. 

Source® The BUFL operand can be supplied in the DCB macro 
instruction* in the DCB subparameter of a BD statement* or 
by the problem program before completion of the data 
control block exit routine. 

BUFNQs absexp (maximum value is 255) 

The BUFNO operand specifies the number of buffers in the 
buffer pool constructed by a BUILD or BUILDRCD macro 
instruction* or it specifies the number of buffers to be 
acquired automatically. If chained scheduling is 
specified* the value of BUFM0 determines the maximum number 
of channel program segments that can be chained and must be 
specified as more than one. If the BUFM0 operand is 
omitted and the buffers are acquired automatically* the 
system acquires three buffers if the device is a 2540 
device or five buffers for any other device type. 

If the buffer pool is constructed by a GETPOOL macro 
instruction* the 1UFN0 operand is not required. 

Sources The BUFNO operand can be supplied in the BOB macro 
instruction* in the BCB subparameter of a BB statement* or 
by the problem program before completion of the data 
control block exit routine. 

BUFOFF=CaJ 2 Sfi 2 U»l L} 

The BilFOFF operand specifies the length* in bytes* of the 
block prefix used with ISCII/ASCII tape data sets. When 
QSAN is used to read ISCII/ASCII tape records* only the 
data portion (or its address) is passed to the problem 
program* the block prefix is not available to the problem 
program. Block prefixes (except BUF0FF»L) cannot be 
included in QSAM output records. The following can be 
specified in the BUFfJFF operands 

specifies the length* in bytes* of the block prefix. 

This value can be from 0 to 99 for an input data set. 

The value must be 0 for writing an output data set 

with fixed-length or undefined-length records. 


specifies that the block prefix is 4 bytes long and 
contains the block length. BUF0FF-L is used when 
format-D records CISCII/ASCII) are processed. QSAM 
uses the 4 bytes as a block-descriptor word (BBW). 
For further information on this operand* see 
"Variable-Length Records—Format D®* in Data 

a • ... " _ j * fs. • j _ 




$ 

X. y 
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Sources The BUFOFF operand can be supplied in the DCB 
macro instruction* in the DCB subparameter of a DD 
statement* or by the problem program before an OPEM macro 
instruction is issued to open the data set. BUFOFF-absexp 
can also be supplied by the second system label of an 
existing data set* BUFGFF=L cannot be supplied by the label 
of an existing data set. 

The BDMAHE operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed® 

Sources The BDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEM 
macro instruction is issued to open the data set. 

BE¥B=tM i TA1 PR | PC | RBI l, opt ions 3 

The BEVB operand specifies the device type where the data 
set can or does reside. The device types above are shown 
with the optional operand(s) that can be coded when a 
particular device is used. The devices are listed in order 
of device independence. For example* if BEVB-BA is coded 
in a DCB macro instruction (or the BEVB operand is omitted* 
which causes a default to DA)* the data control block 
constructed during assembly could later be used for any ©f 
the other devices* but* if BEVB-RB is coded* the data 
control block can be used only with a card reader or card 
reader punch. Unless you are certain that device 
interchangeability is not required* you should either code 
BEVB-BA or omit the operand and allow it to default to BA. 

If system input is directed to an intermediate storage 
device* the BEVB operand is omitted* and the job control 
language for the problem program must designate the system 
input to be used. Similarly* if system output is directed 
to an intermediate storage device* the BEV'B operand is 
omitted* and the job control language for the problem 
program must designate the system output to be used. If 
DEVD“PR* PC* or RD is coded* the DC! macro should not be 
coded within the first 16 bytes of addressabi lity for the 
control section. 

The BEVB operand is discussed below according to individual 

device types 

BEVB=M 

specifies that the data control block can be used for 
a direct access device (or any of the other device 
types described following BA). 


BEVB-TA 

[ t BEN*(1|2|3i4}3 
[ f TRTCH=£CIE|ET1TJ 3 

specifies that the data control block can be used for 
a magnetic tape data set (or any of the other device 
types described following TA) . If TA is coded* the 
following optional operands can be coded* 

mmnizizm 

The BEN operand specifies the recording density 
in the numb@r of bits-per-inch per track as shown 
in the following! 


Recording Density 


mu 7-Track f-Track 


18-Track 


1 

2 

3 

4 


556 

M/A 

M/A 

BOO 

800 CNRZI) 1 

N/A 

M/A 

1600 CPE) 2 

N/A 

M/A 

6250 (GCR)* 

N/A 
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1 MRZ1 is for nonreturn—to—zero inverted mode. 

2 PE is for phase encoded mode, 

s OCR is for group coded recording mode. 
TRTCH=CC[ElET|n 

The TRTCH operand specifies the recording 
technique for 7-track tape. One of the above 
character combinations can be coded. If the 
TRTCH operand is omitted, odd parity with no 
translation or conversion is assumed. The 
following describes the characters that can be 
specified: 

C 

specifies that the data-conversion feature 
is used with odd parity and no translation. 

E 

specifies even parity with no translation or 
conversion. 

ET 

specifies even parity with BCDIC to EBCDIC 
translation required, but no data-conversion 
feature. 

T 

specifies that BCDIC to EBCDIC translation 
is required with odd parity and no 
data-conversion feature. 

BEVB-PR 

C # PRTSP“{0III 2|3T 3 

Specifies that the data control block is used for an 
on-line printer (or any of the other device types 
following PR), If PR is coded, the following optional 
operand can be coded i 

PRTSP-CO|1!2|3} 

The PRTSP operand specifies the line spacing on 
the printer. This operand is not valid if the 
RECFM operand specifies either machine (RECFM=M), 
ANSI (RECFM=A)> or ISO control characters. If 
the PRTSP operand is not specified from any 
source, one is assumed. The following describes 
the characters that can be specified! 

0 

specifies that spacing is suppressed (no 
space). 


specifies single spacing. 

2 

specifies double spacing (one blank line 
between printed lines). 

3 

specifies triple spacing (two blank lines 
between printed lines). 

Notes MODE and FUNC subparameters cannot be 
used with this specification, 

DEVD«PC 

UM0BE=EG!1HRJ1 

[,STACK=C1|2J] 

C,FUNC=U jPlPWCXT) IRIRPIDI1RWITJ IRWPEXTHD1 IMITl}! 

Specifies that the data control block is used for a 
card punch (or any of the other device types following 
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PC). If PC is coded/ the following optional operands 
can be specified: 

MODE=[C|£]CR31 

The MODE operand specifies the mode of operation 
for the card punch. If the MODE operand is 
omitted/ E is assumed. The following describes 
the characters that can be specified: 

C 

specifies that the cards are to be punched 
in card image mode. In card image mode/ the 
12 rows in each card column are punched from 
two consecutive bytes of virtual storage. 
Rows 12 through 3 are punched from the 6 
low-order bits of one byte/ and rows 4 
through 9 are punched from the 6 low-order 
bits of the following byte. 

£ 

specifies that cards are to be punched in 
EBCDIC code. 

STACK=tll2} 

The STACK operand specifies the stacker bin where 
the card is placed after punching is completed. 

If this operand is omitted/ stacker number 1 is 
used. The following describes the characters 
that can be specified: 

1 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNC={I|P|PWCXT] |R|RPED11RWIT1IRWPCXT3CD1 |Wmj 

The FUNC operand defines the type of 3525 card 
punch data sets that is to be used. If the FUNC 
operand is omitted from all sources/ a data set 
opened for input defaults to read only/ and a 
data set opened for output defaults to punch 
only. The following describes the characters 
that can be specified in the FUNC operand: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. Nhen the 
data protection option is used/ an 80-byte 
data protection image (DPI) must have been 
previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output punch 
portion of a read and punch or read/ punch/ 
and print operation. 

I 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 
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T 

specifies that the two-line option is used. 

The two-line print option allows two lines ^ 

of data to be printed on the card Clines 1 ( 

and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case, the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 

See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 

Note: If data protection is specified, the data 

protection image (DPI) must be specified in the 
FCB subparameter of the DD statement for the data 
set. 


DEVD=RD 

C,M0DE=CC|£3C0|R3] 

[ t STACK=C1|2}3 

C f FUNC=£I|P|PWCXT]|R|RPED3|RWCT3|RWPCXT3 CD3IWCT]}] 


RD 

specifies that the data control block is used with a 
card reader or card read punch. If RD is specified, 
the data control block cannot be used with any other 
device type. When RD is coded, the following optional - 

operands can be specified? 

MODE=CC|£]CO|R] 

The MODE operand specifies the mode of operation 
for the card reader. The following describes the 
characters that can be specified: 

C 

specifies that the cards to be read are in 
card image mode. In card image mode, the 12 
rows of each card column are read into two 
consecutive bytes of virtual storage. Rows 
12 through 3 are read into the 6 low-order 
bits of one byte, and rows 4 through 9 are 
read into the 6 low-order bits of the 
following byte. 

£ 

specifies that the cards to be read contain 
data in EBCDIC code. 

0 

specifies that the program runs in optical 
mark read mode (3505 card reader). 

R 

specifies that the program runs in 
read-column-eliminate mode (3505 card reader 
and 3525 card punch, read feature). 

Note: If the MODE operand for a 3505 or 3525 is 

specified in the DCB subparameter of a DD * 

statement, either C or E must be specified if R (J 

or 0 is specified. s 


\ 
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STACK=tll2} 

The STACK operand specifies the stacker bin into 
which the card is placed after reading is 
completed. If this operand is omitted/ stacker 
number 1 is used. The following describes the 
characters that can be specified: 

1 

specifies stacker number 1. 

2 

specifies stacker number 2. 

FUNC={I|P|PWCXT] IRIRPLD3 |RWIT3 |RWPCXTHD1IWCT1} 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources/ a data set 
opened for input defaults to read only/ and a 
data set opened for output defaults to punch 
only. The following describes the characters 
that can be specified in the FUNC operand: 

D 

specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used/ an 80-byte 
data protection image (DPI) must have been 
previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output punch 
portion of a read and punch or read/ punch/ 
and print operation. 

I 

specifies that the data in the data set is 
to be punched into cards and printed on the 
cards; the first 64 characters are printed 
on line 1 of the card and the remaining 16 
characters are printed on line 3. 

P 

specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 

R 

specifies that the data set is for reading 
cards. 

T 

specifies that the two-line option is used. 
The two-line print option allows two lines 
of data to be printed on the card Clines 1 
and 3). If T is not specified/ the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case/ the data printed may be the 
same as the data punched in the card/ or it 
may be entirely different data. 

W 

specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

X 

specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 
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Note: If data protection is specified* the 

data protection image (DPI) must be 

specified in the FCB subparameter of the DD x 

statement for the data set. ( j 

Source: The DEVD operand can be supplied only in 

the DCB macro instruction. However* the optional 
operands can be supplied in the DCB macro 
instruction* the DCB subparameter of a DD 
statement* or by the problem program before 
completion of the data control block exit 
routine. 


DSORG=CPS|PSU} 

The DSORG operand specifies the organization of the data 
set and indicates if the data set contains any 
location-dependent information that would make it 
unmovable. The following can be specified in the DSORG 
operand: 

PS 

Specifies a physical sequential data set. 

PSU 

Specifies a physical sequential data set that contains 
location-dependent information. 

Source: The DSORG operand must be coded in the DCB 
macro instruction. 


EODAD= relexp 

The EODAD operand specifies the address of the routine 
given control when the end of an input data set is reached. 
Control is given to this routine when a GET macro 
instruction is issued and there are no additional records 
to be retrieved. If the record format is RECFM=FS or FBS 
the end-of-data condition is sensed when file mark is read 
or if more data is requested after reading a truncated 
block. If the end of the data set has been reached but no 
EODAD address has been supplied to the data control block* 
or if a GET macro instruction is issued after an 
end-of-data exit is taken* the task is abnormally 
terminated. For additional information on the EODAD 
routine* see Da t a.Adminislra t ion-Gyidg. 

Source: The EODAD operand can be supplied in the DCB macro 

instruction or by the problem program before the end of the 
data set has been reached. 

EROPT=fACC ISKPI ABET 

The EROPT operand specifies the action taken by the system 
if an uncorrectable input/output data validity error occurs 
and no error analysis (SYNAD) routine address has been 
provided* or it specifies the action taken by the system 
after the error analysis routine has returned control to 
the system with a RETURN macro instruction. The specified 
action is taken for input operations for all devices or for 
output operations to a printer. 

Uncorrectable input/output errors resulting from channel 
operations or direct access operations that make the next 
record inaccessible cause the task to be abnormally 
terminated regardless of the action specified in the EROPT 
operand. 

ACC 

specifies that the problem program accepts the block 
causing the error. This action can be specified when 
a data set is opened for INPUT* RDBACK* UPDAT, or 
OUTPUT (OUTPUT applies to printer data sets only). 

SKP 

specifies that the block that caused the error is to 
be skipped. Specifying SKP also causes the buffer 



82 MVS/XA Data Administration: Macro Instruction Reference 


DCB (QSAM) 


associated with the data block to be released. This 
action can be specified when a data set is opened for 
INPUT, RDBACK, or UPDAT. 


ABE 

specifies that the error is to result in the abnormal 
termination of the task. This action can be specified 
when the data set is opened for INPUT, OUTPUT, RDBACK, 
or UPDAT. 

If the EROPT operand is omitted, the ABE action is assumed. 

Note: If the EROPT operand is ACC or SKIP, accept or skip 

processing is done after returning from the error analysis 
(SYNAD) routine. For this reason, FEOV should not be 
issued from within the error analysis routine. 

Source: The EROPT operand can be specified in the DCB 

macro instruction, in the DCB subparameter of a DD 
statement, or by the problem program at any time. The 
problem program can also change the action specified at any 
time. 

EXLSTsnfilflgB 

The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program requires additional processing for the 
following: user labels, user totaling, data control block 

exit routines, end~of-volume, block count exits, defining a 
forms control buffer (FCB) image, using the JFCBE exit (for 
the 3800 printer), or using the DCB abend exit for abend 
condition analysis. 

For the format and requirements of exit list processing, 
see Appendix D, ”DCB Exit List Format and Contents” on 
page 206. For additional information about exit routine 
processing, see Da ta A d min is±J03 ±i Q D- fiu iite. 

Source: The EXLST operand can be supplied in the DCB macro 

instruction or by the problem program any time before the 
exit is required by the problem program. 

LRECL={a_bsexHl x | OKInmmnK} 

The LRECL operand specifies the length, in bytes, for 
fixed-length logical records, or it specifies the maximum 
length, in bytes, for variable-length or undefined-length 
(output only) logical records. The value specified in the 
LRECL operand cannot exceed the value specified in the 
BLKSXZE operand except when variable-length spanned records 
are used. 

For fixed-length records that are unblocked, the value 
specified in the LRECL operand must be equal to the value 
specified in the BLKSIZE operand. For blocked fixed-length 
records, the value specified in the LRECL operand must be 
evenly divisible into the value specified in the BLKSXZE 
operand. 

For variable-length logical records, the value specified in 
the LRECL operand must include the maximum data length (up 
to 32752) plus 4 bytes for the record-descriptor word 
(RDN) . 

For undefined-length records, the problem program must 
insert the actual logical record length into the DCBLRECL 
field before writing the record, or the maximum-length 
record will be written. 

For variable-length spanned records, the logical record 
length (LRECL) can exceed the value specified in the 
BLKSXZE operand, and a variable-length spanned record can 
exceed the maximum block size (32760 bytes). When the 
logical record length exceeds the maximum block size (for 
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non~XLRI processing), LRECL«X must be specified and GET or 
PUT locate mode must be used. 

For ISO/ANSI/FIPS variable-length spanned records (RECFM=DS 
or RECFM=DBS), the extended logical record interface (XLRI) 
may be used when the maximum logical record length exceeds 
32760 bytes. XLRI must be invoked by specifying LRECL=0K 
or j^ECl = ononJlK . The value nnnnnK may range from IK to 
16383K, The value determines the size of the record area 
(in 1024-byte units) required to contain the longest 
logical record of the data set. When LRECL-QK is 
specified, the length of the longest logical record must 
come from the DD statement or the data set label. XLRI 
processing is only valid in QSAM locate mode. You must not 
specify LBEQLr.X for RECEMfJBS or MS. 

Source: The LRECL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. The label will indicate a logical record length 
of *99999* when an IBM standard label tape contains a 
logical record equal to or greater than 100K bytes. The 
label will indicate *00000* if the same maximum is reached 
for an ISO/ANSI/FIPS label tape. 

Note: When LRECL=0K is used in the DCB, the LRECL data 

must come from JCL, the file label (for an input data set), 
or from the DCB exit during open merge. 

Although LRECL-OK is only valid when RECFM=DS or DBS, you 
can specify the OK option on the DCB macro even though the 
RECFM is not determined until the DCB is opened. (The 
RECFM is obtained from the data set label or the DD 
statement.) If you specify neither the DS nor the DBS 
option, the system turns the OK indicator off, and restores 
it when the DCB is closed. 

MACRF=CC (GCM | L |DHC3 )} 

{(PCM| L ! D}[Cl)}} 
t(GtM|L|DTEC],P£MIL|TlDHC3)}} 

The MACRF operand specifies the type of macro instructions 
(GET, PUT or PUTX, CNTRL, RELSE, and TRUNC) and the 
transmittal modes (move, locate, and data) that are used 
with the data set being created or processed. The operand 
can be coded in any of the combinations shown above; the 
following describes the characters that can be coded j 

C 

specifies that the CNTRL macro instruction is used 
with the data set. If the CNTRL macro instruction is 
specified, the data set should be for a card reader 
(stacker selection) or printer (carriage and spacing 
control). The CNTRL option can be specified with GET 
in the move mode only. Use of the CNTRL macro is 
invalid for 3525 input data sets. 

D 

specifies that the data transmittal mode is used (only 
the data portion of a record is moved to or from the 
work area). Data mode is used only with 
variable-length spanned records. 

G 

specifies that GET macro instructions are used. 
Specifying G also provides the routines that allow the 
problem program to issue RELSE macro instructions. 

L 

specifies that the locate transmittal mode is used; 
the system provides the address of the buffer 
containing the data. 
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H 

specifies that the move transmittal mode is used; the 
system moves the data from the buffer to the work area 
in the problem program. 

P 

specifies that PUT or PUTX macro instructions are 
used. Specifying P also provides the routines that 
allow the problem program to issue TRUNC macro 
instructions. 

Note: For data sets processed by QSAM using MACRFsCGM) or 

MACRF=(PM), do not code BFTEK“A. 

Sources The MACRF operand can be supplied only in the DCB 
macro instruction. 

OPTCD={{B} 

CT} 

cuccn 

ccmcBJtim 

{HEZ3EB3J 
CJEC3EUD 
{WEC3ET3EB3EU3J 
{ZEC3 ET3 EB3 EU3} 

{QEC3EB3ET3J 

CZ}} 

The OPTCD operand specifies the optional services used with 
the QSAM data set. Two of the optional services* OPTCB-B 
and GPTCD=H* cannot be specified in the DCB macro 
instruction. They are requested in the DCB subparameter of 
a DD statement. Because all optional services codes must 
be supplied by the same source* the OPTCP operand must be 
omitted from the DCB macro instruction if either of these 
options is requested in a DD statement. The following 
describes the characters that can be specified? 

C 

requests that chained scheduling be used. GPTCB-C 
cannot be specified when either BFTESC=A or BFTESC-R is 
specified for the same data control block. Also* 
chained scheduling cannot be specified for associated 
data sets or printing on a 3525 and is ignored for 
direct access devices. 

Note* Except where it is not allowed* chained 
scheduling is used whether requested or not. For 
conditions under which it is not allowed* see Data 

J 

specifies that the first data byte in the output data 
line will be a 3800 table reference character. This 
table reference character selects a particular 
character arrangement table for the printing of the 
data line and can be used singly or in conjunction 
with ISO/ANSI/FIPS or machine control characters. 

This option is valid only for the IBM 3800 Printing 
Subsystem. For information on the table reference 
character and character arrangement table* see IBM 
3800 Printing Subsystem Programmers Guide . 

Q 

requests that ISCII/ASCII tape records in an input 
data set be converted to EBCDIC code when the input 
record has been read* or an output record in EBCDIC 
code be converted to ISCII/ASCII code before the 
record Is written. For further information on this 
conversion* see Sf ¥arlable-Length Records—Format B 9S in 
Qri^0.Mi.ae. 

The Q option is unconditionally set by open routines 
if the data set is for a tape with ISO/ANSI/FIPS 
labels. For ISCII/ASCII to EBCDIC or EBCDIC to 
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I 


I 


ISCII/ASCII translations# see 


T 

requests the user totaling function. If this function 
is requested# the EXIST operand should specify the 
address of an exit list i© be used* T cannot be 
specified for a SYSIM or SYSOUT data set* 

y 

is specified only for a printer with the 
universal-character-set feature or the IBM 3800 
Printing Subsystem. This option unblocks data checks 
(permits them to be recognized as errors) and allows 
analysis by the appropriate error analysis routine 
(SYNAB exit routine). If the U option is omitted# 
data checks are not recognized as errors. 

For the IBM Mass Storage System (MSS )t U requests 
window processing to reduce the amount of staging 
space required to process large sequential data sets 
on MSS. BSORG must specify physical sequential# 
allocation must be in cylinders# and type of I/O 
accessing must be either INPUT only or OUTPUT only. 

W 

for DASB# specifies that the system is to perform a 
validity check on each record written on a direct 
access device. For buffered devices? specifies that 
device end interrupt is to be given only when a record 
is physically on the device. By specifying OPTCD-W 
with buffered devices# you do not benefit from the 
performance advantage of buffering. 

I 

requests# for magnetic tape# input only# the system to 
shorten its normal error recovery procedure to 
consider a data check as a permanent I/O error after 
five unsuccessful attempts to read a record. This 
option is available only if it is also specified as a 
SYSGEN option. OPTCD-Z is used when a, tape is known 
to contain errors and there is no need to process 
every record. The error analysis routine (SYNAB) 
should keep a count of permanent errors and terminate 
processing if the number becomes excessive. 

For direct access devices only# the Z option is 
ignored. 

Mote* The following describes the optional services that 

can b@ specified in the DCB subparameter of a DD statement. 

If either of these options is requested# the complete OPTCB 

operand must be supplied in the BB statement, 

B 

If OPTCB-B is specified in the DCB subparameter of a 
DD statement# it forces the end-of-volume CEOV) 
routine to disregard the endhof-file recognition for 
magnetic tape. Nhen this occurs# the EOV routine uses 
the number of volume serial numbers to determine end 
of file. For an input data set on a standard labeled 
(SL, or AL) tape# the EOV routine will treat EOF labels 
as EOV labels until the volume serial list is 
exhausted. After all the volumes have been read# 
control is passed to the user*s end-of'“data routine* 
This option allows SL or AL tapes to be read out of 
volume sequence or to be concatenated to another tape 
using one BD statement. 

H 

If OPTCB-H is specified in the DCB subparameter of a 
DD statement# it specifies that the DOS/OS interchange 
feature is being used with the data set. 
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RECFM=CCUtTHA|M]}) 

CVIBCS3CT1ISCT3JT3IAIM3} 

{DCBES31[S3[A3 3} 

{FCB|S|T|BS|BT3CA|M3}) 

The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 
All record formats can be used in QSAM. The following 
describes the characters that can be specified: 

A 

specifies that the records in the data set contain 
ISO/ANSI/FIPS control characters. For a description 
of control characters, see Appendix E, "Control 
Characters" on page 208. 

B 

specifies that the data set contains blocked records. 

D 

specifies that the data set contains variable-length 
ISCII/ASCII tape records. See OPTCD=Q and the BUFOFF 
operand for a description of how to specify 
ISCII/ASCII data sets. 

F 

specifies that the data set contains fixed-length 
records. 

M 

specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 208. RECFM=M cannot be used with 
ISCII/ASCII data sets. 

S 

specifies, for fixed-length records, that the records 
are to be written as standard blocks; the data set 
does not contain any truncated blocks or unfilled 
tracks, with the exception of the last block or track 
in the data set. Do not code S for fixed-length 
records to retrieve records from a data set that was 
created using a RECFM other than standard. 

For variable-length records, S specifies that a record 
can span more than one block. 

T 

specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track and the remainder of the record 
on the following track (if required). Chained 
scheduling (OPTCD=C) cannot be requested if track 
overflow is used. 


specifies that the data set contains undefined-length 
records. 

Note: Format-U records are not supported for Version 

3 ISO/ANSI/FIPS tapes. An attempt to process a 
format-U record for a Version 3 tape results in a 
label validation installation exit being taken. 

ISO/ANSI Version 1 (ISO 1001-1969 or ANSI X3.27-1969) 
format-U records can be used for input only. These 
records are the same as the format-U records described 
above, except that the control characters must be 
ISO/ANSI control characters, and block prefixes can be 
used. 

V 

specifies that the data set contains variable-length 
records. 
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Notes: 

yT'-S 

• RECFM=V cannot be specified for a card reader data set ' ) 

or an ISO/ANSI/FIPS tape data set. V_y 

• RECFM=VS, VBS, DS, or DBS cannot be specified for a 
SYSIN data set. 

• REOFM=DS or RECFM=DBS provides blocking, unblocking, 
and segmenting for Version 3 ISO/ANSI/FIPS tape data 
sets. 

Sources The RECFM operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 

SYNAP=nfi.i exp. 

The SYNAD operand specifies the address of the error 
analysis routine given control if an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 190. 

The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. 

If the error condition was the result of a data--validity 

error, the control program takes the action specified in 

the EROPT operand; otherwise, the task is abnormally 

terminated. The control program takes these actions when v ^ 

the SYNAD operand is omitted or when the error analysis 

routine returns control. 

Source: The SYNAD operand can be supplied in the DCB macro 

instruction or by the problem program. The problem program 
can also change the error routine address at any time. 



88 MVS/XA Data Administration* Macro Instruction Reference 



g CBP =EB QV IPL$.YMmi C . ^E F^ R E NCE , TQ -.PA T A^C Q M T RPL.JL QC K§J gP AMi^B.I§AMr..-B PA Mf.-B S AM. 

9 IS AMj.-AMIL,ftSAIiI 


DCBD 


The DCBD macro instruction is used to generate a dummy control 
section that provides symbolic names for the fields in one or 
more data control blocks. The names and attributes of the 
fields appear as part of the description of each data control 
block in Appendix F, "Data Control Block Symbolic Field Names" 
on page 211. Attributes of the symbolically named fields in the 
dummy section are the same as the fields in the data control 
blocks^ with the exception of fields containing 3-byte 
addresses. The symbolically named fields containing 3-byte 
addresses have length attributes of 4 and are aligned on 
fullword boundaries. 

The labels generated by the DCBD macro should not be defined 
within a user program. The macro labels are structured as DCB 
xxxxx, where DCB is the first 3 characters and xxxxx is 1 to 5 
alphameric characters. 

The name of the dummy control section generated by a DCBD macro 
instruction is IHADCB. The use of any of the symbolic names 
provided by the dummy section must be preceded by a USING 
instruction specifying IHADCB and a dummy section base register 
(which contains the address of the actual data control block). 
The DCBD macro instruction can only be issued once within any 
assembled module; however/ the resulting symbolic names can be 
used for any number of data control blocks by changing the 
address in the dummy section base register. The DCBD macro 
instruction can be coded at any point in a control section; if 
coded at any point other than at the end of a control section/ 
however/ the control section must be resumed by coding a CSECT 
instruction. 

The DCBD macro is written? 


b 

DCBD 

[DSORG=({GS| 



IBSn,DAH,Isn,LRH,P0]t,PS][,QS]J)3 



[,DEVD=([DA][,PC][,PR][,RD][,TA] 



[,MRJ)3 


DSORG=({GS!CBS3 C/DA]C/IS]C/LR3C/P03[/PS]C/QS3}3 

The DSORG operand specifies the types of data control 
blocks for which symbolic names are provided. If the DSORG 
operand is omitted, the DEVD operand is ignored, and 
symbolic names are provided only for the foundation block 1 
portion that is common to all data control blocks. One or 
more of the following pairs of characters can be specified 
(each pair of characters must be separated by a comma): 

BS 

specifies a data control block for a sequential data 
set and basic access method. 

DA 

specifies a data control block for a direct data set. 
IS 

specifies a data control block for an indexed 
sequential data set. 

LR 

specifies a dummy section for the logical record 
length field (DCBLRECL) only. 

PO 

specifies a data control block for a partitioned data 
set. 

PS 

specifies a data control block for a sequential data 
set. PS includes both BS and QS. 
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QS 

specifies a data control block for a sequential data 
set and queued access method. 

GS 

specifies a data control block for graphics; this 
operand cannot be used in combination with any of the 
above. 

DEVD=[DA3[> PC][,PR][,RD][,TA3[,MR] 

The DEVD operand specifies the types of devices on which 
the data set can reside. If the DEVD operand is omitted 
and a sequential data set is specified in the DSORG 
operand* symbolic names are provided for all the device 
types listed below. One or more of the following pairs of 
characters can be specified; each pair of characters must 
be separated by a comma* 

DA 

Direct access device 
PC 

On-line punch 

PR 

On-line printer 

RD 

On-line card reader or read punch feed 
TA 

Magnetic tape 
MR 

Magnetic character reader 
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ESETL 


E£ElTL"ENP.SEQUE N T I AL.BEIBIEY A L-LS I S AM). 

The ESETL macro instruction ends the sequential retrieval of 
data from an indexed sequential data set and causes the buffers 
associated with the specified data control block to be released. 
An ESETL macro instruction must separate SETL macro instructions 
issued for the same data control block. 

The ESETL macro is written: 


£gy.mbp.l3 


ESETL 


Adb L-a -d d cs s s 


(“Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block opened for the indexed sequential data set 
being processed. 
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EEffltrESRCE END .OF- VQUUHE 

The FEOV macro instruction causes the system to assume an 
end-of-volume condition* and causes automatic volume switching. 
Volume positioning for magnetic tape can be specified by the 
option operand. If no option is coded* the positioning 
specified in the OPEN macro instruction is used. Output labels 
are created as required and new input labels are verified. The 
standard exit routines are given control as specified in the 
data control block exit list. For BSAM* all input and output 
operations must be tested for completion before the FEOV macro 
instruction is issued. The end-of-data-set (EODAD) routine is 
given control if an input FEOV macro instruction is issued for 
the last volume of an input data set. FEOV is ignored if issued 
for a SYSIN or SYSOUT data set. 

The FEOV macro is written? 


i symbol 3 

FEOV 

deb address 

- 



[ t REWIND| t LEAVE! 



deb address —-RX-Type Address* (2-12)* or (1) 

The deb address operand specifies the address of the data 
control ^lock for an opened sequential data set. 

REWIND 

requests that the system position the tape at the load 
point regardless of the direction of processing. 


LEAVE 

requests that the system position the tape at the logical 
end of the data set on that volume; this option causes the 
tape to be positioned at a point after the tapemark that 
follows the trailer labels. Note that multiple tape units 
must be available to achieve this positioning. If only one 
tape unit is available* its volume is rewound and unloaded. 

Note* If an FEOV macro is issued for a multivolume data 
set with spanned records that is being read using QSAM* 
errors may occur when the next GET macro is issued 
following an FEOV macro if the first segment on the new 
volume is not the first segment of a record. The errors 
include duplicate records* program checks in the user 
program* and invalid input from the variable spanned data 
set. 


The FEOV macro should not be used within the error analysis 
routine (SYNAD). 




.S" %- 
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EIMP = gS T AB U «L lH L J Bfi^ ^ 

The FIND macro instruction causes the system to use the address 
of the first block of a specified partitioned data set member as 
the starting point for the next READ macro instruction for the 
same data set. All previous input and output operations that 
specified the same data control block must have been tested for 
completion before the FIND macro instruction is issued. 

The FIND macro is written? 


I symbol 3 


FIND 


deb address 

> Cpa mi BL.,.a ridr, fissf DI r. fe l a li y .&.^ Cl 


deb address —RX-Type Address, (2-12), or Cl) 

The deb address operand specifies the address of the data 
control block for the opened partitioned data set being 
processed. 

name.Jddr.ess —RX-Type Address, (2-12), or (0) 

The name address operand specifies the address of an 8-byte 
field that contains the data set member name. The name 
must start in the first byte and be padded on the right (if 
necessary) to complete the 8 bytes. 


D 

Specifies that only a member name has been supplied, and 
the access method must search the directory of the data set 
indicated in the data control block to find the location of 
the member. 

J^laii v .S , ft dd res s,list —RX-Type Address, (2-12) , or (0) 

The relative address list operand specifies the address of 
the area that contains the relative address (TTRK) for the 
beginning of a data set member. The relative address can 
be a list entry completed by using a BLDL macro instruction 
for the data set being processed, or the relative address 
can be supplied by the problem program. 

C 

specifies that a relative address has been supplied, and no 
directory search is required. The relative address 
supplied is used directly by the access method for the next 
input operation. 

Note: When using the FIND macro, the DCBRELAD address in 

the DCB is updated. The FIND macro should not be used 
after WRITE and STOW processing without first closing the 
data set and reopening it for INPUT processing. 


COMPLETION CODES 


For relative address list ? C, when the system returns control to 
the problem program, the low-order byte of register 15 contains 
the following return code; the 3 high-order bytes of register 15 
are set to 0. 

££l a t iy .e. add r e s s..lis t > 0 

00 — At all times. If the relative address is in error, 
execution of the next CHECK macro instruction causes 
control to be passed to the error analysis (SYNAD) 
routine. 
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For name address 9 D, when the system returns control to the 
problem program, the low-order byte of register 15 contains a 
return code and the low-order byte of register 0 contains a 
reason code. The 3 high-order bytes of these two registers are 

set to 0, 


name .address 

. D 


Return 

Code (15) 

Reason 

Code (0) 

00 CX'00') 

00 

(X'00') 

04 (X 1 04 ') 

00 

(X'OO*) 

08 (X 1 08 ' ) 

00 

(X'00*) 

08 (X* 08') 

04 

(X , 04*) 

08 (X* 08' ) 

08 

CX'08') 


Meaning 

Successful execution. 

Name not found. 

Permanent 1/0 error during directory 
search. 

Insufficient virtual storage available. 
Invalid DEB. (Not in key 0 through 7.) 



i, 


if > 
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The FREEBUF macro instruction causes the system to return a 
buffer to the buffer pool assigned to the specified data control 
block. The buffer must have been acquired using a GETBUF macro 
instruction. 

The FREEBUF macro is written: 


[symbol! 

FREEBUF 

dob-addc-sss 



» reaister 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for an opened data set to which the buffer 
pool has been assigned. 

Eftflistfir.— (2-12) 

The register operand specifies one of registers 2 through 
12 that contains the address of the buffer being returned 
to the buffer pool. 
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EBEEBBUF — RE TU RN. A JYNAM1CA I ,LY. J B TAI N E P P U F£EB^ M M^ A MP^BISAMi 

*f—\ 

The FREEDBUF macro instruction causes the system to return a ( 

buffer to the buffer pool assigned to the specified data control 
block. The buffer must have been acquired through dynamic 
buffering; that is, by coding 'S* for the area address operand 
in the associated READ macro instruction. 

Note: A buffer acquired dynamically can also be released by a 

WRITE macro instruction; see the description of the WRITE macro 
instruction for BDAM or BISAM. 

The FREEDBUF macro is written? 


[symbol 3 

FREEDBUF 

decb address 



,{K|D} 



* dsb„..as!dc£ss 


decbaddress —RX~Type Address, (2-12), or (0) 

The decb address operand specifies the address of the data 
event control block (DECB) used or created by the READ 
macro instruction that acquired the buffer dynamically. 


K 

specifies that BISAM is being used. 

D 

specifies that BDAM is being used. 


-RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened data set being processed. 


f ^ 
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The FREEPOOL macro instruction causes an area of storage# 
previously acquired for a buffer pool for a specified data 
control block# to be released. The area must have been acquired 
either automatically (except when dynamic buffer control is 
used) or by the execution of a GETPOOL macro instruction. For 
queued access methods# the FREEPOOL macro instruction must not 
be issued until after a CLOSE macro instruction has been issued 
for all the data control blocks using the buffer pool. For 
basic access methods# the FREEPOOL macro instruction can be 
issued as soon as the buffers are no longer required. A buffer 
pool should be released only once# regardless of the number of 
data control blocks sharing the buffer pool. 

The FREEPOOL macro is written: 


£ symb ol 3 


FREEPOOL 


■d£b_itd.di^ss 


deb address —RX-Type Address, (2-12)# or (1) 

The deb address operand specifies the address of a data 
control block to which the buffer pool has been assigned. 
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fiEI=Qg.IAIN . ME X I L QQICALfiEQPRP,JiaiSAMI 


The GET macro instruction causes the system to retrieve the next 
record. Control is not returned to the problem program until 
the record is available. 

The GET macro is written: 


[symbol] 

GET 

deb address 



[.areaaddress] 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened input data set being 
retrieved. 

a r e a. a d d ress —RX-Type Address, (2-12), or (0) 

The area address operand specifies the storage address into 
which the system is to move the record (move mode only). 
Either the move or locate mode can be used with QISAM, but 
they must not be mixed within the specified data control 
block. The following describes operations for move and 
locate modes: 

Locate Mode: If locate mode has been specified in the data 
control block, the area address operand must be omitted. 

The system returns the address of the buffer segment 
containing the record in register 1. 

Move Mode: If move mode has been specified in the data 
control block, the area address operand must specify the 
address in the problem program into which the system will 
move the record. If the area address operand is omitted, 
the system assumes that register 0 contains the area 
address. When control is returned to the problem program, 
register 0 contains the area address, and register 1 
contains the address of the data control block. 


Notes: 

1. The end-of-data-set (EODAD) routine is given control if the 
end of the data set is reached; the data set may be closed 
if processing is completed, or an ESETL macro must be issued 
before a SETL macro to continue further input processing. 

2. The error analysis (SYNAD) routine is given control if the 
input operation could not be completed successfully. The 
contents of the general registers when control is given to 
the SYNAD exit routine are described in Appendix A, "Status 
Information Following an Input/Output Operation" on 

page 190. 

3. When the key of an unblocked record is retrieved with the 
data, the address of the key is returned as follows (see the 
SETL macro instruction): 

Locate Mode: The address of the key is returned in register 

0 . 

Move Mode: The key appears in front of the record in your 
buffer area. 

4. If a GET macro instruction is issued for a data set and the 
previous request issued for the same data set was an OPEN, 
ESETL, or unsuccessful SETL (no record found), a SETL B (key 
and data) is invoked automatically, and the first record in 
the data set is returned. 
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The GET macro instruction causes the system to retrieve the next 
record. Various modes are available and are specified in the 
DOB macro instruction. In the locate mode, the GET macro 
instruction locates the next sequential record or record segment 
to be processed. The system returns the address of the record 
in register 1 and places the length of the record or Segment in 
the logical record length (DCBLRECL) field of the data control 
block. The DCBLRECL field is not changed when GET is used in 
XLRI processing. The user can process the record within the 
input buffer or move the record to a work area. 

In move mode, the GET macro instruction moves the next 
sequential record to the user*s work area. This work area must 
be large enough to contain the largest logical record of the 
data set and its record-descriptor word Cvariable-length 
records). The system returns the address of the work area in 
register I. The record length is placed in the DCBLRECL field. 
Move mode can be used only with simple buffering. 

In data mode/, which is available only for variable-length 
spanned records, the GET macro instruction moves only the data 
portion of the next sequential record to the user®s work area. 
The TYPE-P operand cannot be used with data mode. 

If the ISCII/ ASCI I translation routines are included when the 
operating system is generated, translation can b@ requested by 
coding LABEL=C,AL> or C,AUl> in the DB statement, or it can be 
requested by coding 0PTCD=Q in the DCB macro instruction or DCB 
subparameter of the DD statement. When translation is 
requested, all QSAM records whose record format (RECFM operand) 
is F, FB, D, DS, DB, DBS, or U are automatically translated from 
1SCI1/ASCII code to EBCDIC code as soon as the input buffer is 
full. For translation to occur correctly, all input data must 
b© in ISCII/ASCII code. 

The GET macro is written? 


[symbol] 


{deb addressI pdab address! 


■m 

f[ p ij5| ,,g| ^ ^f, ,S IS ^ 

1 


[,TYPE=PJ 


Address, (2-12), or Cl) 

The deb address operand specifies the address of the data 
control block for the opened input data set being 
retrieved. 

Pdflb addre ss—RX-Tvoe Address, (2-12), or Cl) 

The pdab address operand specifies the address of the 
parallel data access block for the opened input data sets 
from which a record is to be retrieved. When pdab address 
is used, TYFE-F must be coded. 

area address —RX-Type Address, (2-12), or CO) 

The area address operand specifies the address of an area 
into which the system is to move the record (move dr data 
mode). The move, locate, or data mode can be used with 
QSAM, but must not be mixed within the specified data 
control block. If the area address operand is omitted in 
the move or data mode, the system assumes that register 0 
contains the area address. The following describes the 
operation of the three modest 

Locate Mode® If locate mode has been specified in the data 
control block, the area address operand must be omitted* 
The system returns the address of the beginning buffer 
segment containing the record in register 1. If the data 
set is open for RBBAC&, register 1 will point to the 
beginning of the record. 
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Nhen retrieving variable-length spanned records#, and the 
logical record interface CLRI) or extended logical record 
interface CXLRI) is not used# the records are obtained one 
segment at a time. The problem program must retrieve 
additional segments by issuing subsequent GET macro 
instructions# except when a logical record interface is 
requested (by specifying BFTEK=A in the DCB macro 
instruction or by issuing a BUILDRCD macro instruction# or 
by specifying DCBIRECL=QK or nnnnnK in the DCB macro). In 
this case# the control program retrieves all record 
segments and assembles the segments into a complete logical 
record. The system returns the address of this record area 
in register 1. 

Nhen the maximum logical record length is greater than 
32756 bytes# LRECL=X must be specified in the data control 
block# and the problem program must assemble the segments 
into a complete logical record. LRECL=X and/or segment 
mode processing is invalid for ISO/ANSI/FIPS spanned 
records# RECFH=DS or RECFM=DBS. 

Hove Mode: If move mode has been specified in the data 
control block# the area address operand specifies the 
beginning address of an area in the problem program into 
which the system will move the record. If the data set is 
open for RDBACK# the area address operand specifies the 
ending address of an area in the problem program. 

If move mode has been specified in the data control block# 
do not code BFTEK=A. 

For variable-length spanned records# the system constructs 
the record-descriptor word in the first four bytes of the 
area and assembles one or more segments into the data 
portion of the logical record area#* the segment descriptor 
words are removed. Nhen XLRI mode is used# the record 
descriptor word CRDN) in the record area is a fullword 
value * 

Data Mode: If data mode has been specified in the data 
control block (data mode can be specified for 
variable-length spanned records only)# the area address 
operand specifies the address of the area in the problem 
program into which the system will move the data portion of 
the logical record.; a record-descriptor word is not 
constructed when data mode is used. The TYPE-P operand 
cannot be used with data mode. 

Extended Logical Record Interface (XLRI): When the GET 
macro is used in XLRI mode# the address returned in 
register 1 points to a fullword record length value. The 
three low-order bytes of the fullwcrd indicate the length 
of the complete logical record plus four bytes for the 
fullword. 

XLRI mode requires a record area to assemble a complete 
logical record from the segments that are read. 

If a record area is not automatically obtained by OPEN 
processing# you can construct a record by using the 
BUILDRCD macro before issuing the OPEN. The DCB LRECL 
field indicates the length of the area in K units (1024 
bytes) required to contain the longest logical record of 
the data set. 

Note: If spanned records extend across volumes# errors may 

occur when using the GET macro if a volume that begins with 
a middle or last record segment is mounted first# or if an 
FEQW macro is issued followed by a GET macro. QSAM cannot 
begin reading from the middle of the record. (This applies 

to move mode# data mode# and locate mode if logical record 
interface is specified.) 
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TYPE=P —Coded as shown 

The TYPE=P and PDAB address operands are used to retrieve a 
record from a queue of input data sets that have been 
opened. The open and close routines add and delete DCB 
addresses in the queue. The DCB from which a record is 
retrieved can be located from information in the PDAB. For 
this purpose, the formatting macro, PDABD, should be used. 


GET ROUTINE EXITS 


The end-of-data-set (EODAD) routine is given control if the end 
of the data set is reached; the data set must be closed. 

Issuing a GET macro instruction in the EODAD routine results in 
abnormal termination of the task. 

The error analysis (SYNAD) routine is given control if the input 
operation could not be completed successfully. The contents of 
the general registers when control is given to the SYNAD exit 
routine are described in Appendix A, "Status Information 
Following an Input/Output Operation" on page 190. 


f 
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The GETBUF macro instruction causes the control program to 
obtain a buffer from the buffer pool assigned to the specified 
data control block and to return the address of the buffer in a 
designated register. The BIJFCB field of the data control block 
must contain the address of the buffer pool control block when 
the GETBUF macro instruction is issued. The system returns 
control to the instruction following the GETBUF macro 
instruction. The buffer obtained must fee returned to the buffer 
pool using a FREEBUF macro instruction. 

The GETBUF macro is written? 


[ symbol ! 


GETBUF 



ype Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block that contains the buffer pool control block 
address. 

C 2-»12) 

The register operand specifies one of the registers 2 
through 12 in which the system is to place the address of 
the buffer obtained from the buffer pool. If no buffer is 
available, the contents of the designated register are set 

to 0. 
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The GETPOOL macro instruction causes a buffer pool to be 
constructed in a storage area acquired by the system. The 
system places the address of the buffer pool control block in 
the BUFCB field of the data control block. The GETPOOL macro 
instruction must be issued either before an OPEN macro 
instruction is issued or during the data control block exit 
routine for the specified data control block. 

The GETPOOL macro is written? 


[symbol I 

GETPOOL 

■dgb-adHc.ess 




> { n Mmber-af..buiffi.cs > 

iaoaihl 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block to which the buffer pool is assigned. Only 
one buffer pool can be assigned to a data control block. 

number of buffers —symbol, decimal digit, absexp, or (2-12) 

The numbei—of-buffers operand specifies the number of 
buffers in the buffer pool to a maximum of 255. 

buffer length —symbol, decimal digit, absexp, or (2~12) 

The buffer length operand specifies the length, in bytes, 
or each buffer in the buffer pool. The value specified for 
the buffer length must be a doubleword multiple; otherwise, 
the system rounds the value specified to the next higher 
doubleword multiple. The maximum length that can be 
specified is 32760 bytes. For QSAM, the buffer length must 
be at least as large as the value specified in the block 
size (DCBBLKSI) field in the data control block. 

CO)—Coded as shown 

The number of buffers and buffer length can be specified in 
general register 0. If (0) is coded, register 0 must 
contain the binary values for the number of buffers and 
buffer length as shown in the following illustrations 


Bits: 


Register 0 


Number of Buffers 


0 


15 16 


Buffer Length 


31 


The following illustration shows the format of the buffer pool. 
The buffer pool and the associated storage area are released by 
issuing a FREEPOOL macro instruction after issuing a CLOSE macro 
instruction for the data set indicated in the specified data 
control block. 
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GETPOOL 


Area (' ") 

Address ^ 


BUFAD 


BUFNO 

BUFL 

Buffer 

i 

i 


Buffer 

Address of First 
Available 

Buffer 

Reserved 

for 

Flags 

. 

Number 

of 

Buffers 

Length 
of Each 
Buffer 

0 

— 1*.. r 

1 4 

fer Pool Cont 
(8 bytes) 

5 

6 

8 


—Buffer Length-—** 

*»- DUi 


^—Butter Length—» 

Area Length= (Buffer Length) x (Number of Buffers) +8 
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NSGDZSP 


| HSCPI SR ^ M ES^A C E_PlSPLAY-lJR_IVE-REA PY i 

The MSGDISP macro is used to load the message display on an IBM 
3480 Magnetic Tape Subsystem. Functions for the display 
include: 

• Displaying a ready message 

• Mount volume 1 

• Demount volume 1 

• Reset display 1 

• Verify volume 1 

• Generalized display 1 

1 For an explanation of these MSGDISP macro functions, see 
SYS±.emzPaia dm ini s_i ra iism . 

| MSfiPISP—PISP.LA^IM(LAJ?EAP.Y_11E$S A 6e 

I The MSGDISP macro is written* 


[symbol* 

MSGDISP 

RDY 



»DCB=addr 

[»TXT=£'msaixi'laddn>l 


RDY 

specifies that text supplied in the TXT parameter is 
displayed in positions 2 through 7 of the display while the 
data set is open. The display is steady (not flashing) and 
is enclosed in parentheses. The display is also written to 
the tape pool console (routing code 3, descriptor code 7). 

DCB= addr 

specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated, the 
message display is directed to the one containing the 
volume currently in use. 

Note: If multiple devices or multiple volumes are 

allocated, you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics, the open DCB exit may be used 
to update the display. 

addr —RX-Type address, A-Type address, or (2-12) 

specifies an in-storage address of the opened DCB. 

TXT={ "msalKi 1 1 gLddri 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks are 
displayed. 

' msqtxV 

specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 

addr —RX-Tvpe address, A-Type address, or (2-12) 

specifies an in-storage address of an area containing 
the text to be displayed. 
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MSGDISP 

| m S M SE=L!S l .FORM 


The list form of the MSGDISP macro is written t 


[symbol! 

MSGDISP 

[RDY] 



[>DCB=asMnI 



,MF=L 



[, TXT={ 'msgix.t ' 1 addr} 1 


RDY 

specifies that text supplied in the TXT parameter is 
displayed in positions 2 through 7 while a data set is 
open. The display is steady (not flashing) and is enclosed 
in parentheses. The display is written to the tape pool 
console (routing code 3, descriptor code 7). 

DCB= addr 

specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated? the 
message display is directed to the one containing the 
volume currently in use. 

Note: If multiple devices or multiple volumes are 

allocated? you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics? the open DCB exit may be used 
to update the display. 

addr —A-Type address 

specifies an in-storage address of the opened DCB. 


MF=L 

specifies the list form of MSGDISP. This generates a 
parameter list that contains no executable instructions. 

The list can be used as input to and can be modified by the 
execute form. 

TXT={ ’msaixi' I addr.} 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified? blanks are 
displayed. 

®msa±x± l 

specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 

addr —A-Type address 

specifies an in-storage address of an area containing 
the text to be displayed. 
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HSGBISP 


The execute form of the MSGD1SP macro is written* 


r* “■*! 

IgymfeffiJJ 

MSGDISP 

RBY 



C, DCBsaddc3 
.MFs(E.addr) 

[.TXTsC'msaixt' 1 addnJ* | 


RBY 

specifies that text supplied in the TXT parameter is 
displayed in positions 2 through 7 while a data set is 
open. The display is steady (not flashing) and is enclosed 
in parentheses. The display is written to the tape pool 
console (routing code 3, descriptor coda 7), 

DCE=addC 

specifies the address of a DOB opened to a data set on tha 
mounted volume. If multiple devices are allocated.* the 
message display is directed to the one containing the 
volume currently in use. 

Notes If multiple devices or multiple volumes are 
allocated** you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DOB exit list. In the case of a concatenated data set 
with unlike characteristics, the open IPCB exit may be used 
to update the display, 

.iiMt - RX-Type address, A-Type address, or (2-12) 

specifies an in~storage address of the opened DCB. 

HF=lE,addi:) 

specifies that the execute form of MSGDISP and an existing 
parametBr list is used, 

addr —RX-Tvoe address, (1), or (2-12) 

specifies an in-storage address of the parameter list, 

TXT={•msalx! 1 laddcl 

specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks are 
displayed, 

'msjg&d;' 

specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes, 

adsic~RX-Type address, A-Type address, or (2-12) 

specifies an in-storage address of an area containing 
tha text to be displayed. 
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MSGDISP 


| COMPLETION CODES 

Hhen the system returns control to your problem program* the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason codes 

| Return Reason 


1 

Code (15) 

Code (0) 

Meaning 

1 

00 

CX'OO') 



Successful completion 

1 

04 

(X* 04') 



Device does not support MSGDISP 

I 

08 

(X' 08' ) 

01 

(X'01*) 

Invalid parameter 

1 

08 

£X' 08' ) 

02 

(X'02*) 

Invalid DCB or BEBCHK error 

I 

08 

(X'08 *) 

03 

CX'03') 

Environmental error 

i 

08 

(X* 08 ’ ) 

04 

CX'04') 

Authorization violation 

! 

08 

CX' 08' ) 

05 

(X'05») 

Invalid UCB 

I 

08 

(X* 08’) 

06 

(X'06') 

Invalid request 

1 

08 

CX’08 *) 

11 

(X"OB') 

Unsuccessful ESTAE macro call 

1 

08 

(X* 08 *) 

12 

CX’OC') 

Unsuccessful GETMAIN request 

1 

12 

(X’OC') 



Input/output error (I/O Supervisor 
posted the request as an error) 


Notes An I/O error occurs for load 
display if the drive display has a 
hardware failure. 
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NOTE 


. 1B B A1L-AMB 

The NOTE macro instruction causes the system to return the 
position of the last block read from or written into a data set. 
All input and output operations using the same data control 
block must be tested for completion before the NOTE macro 
instruction is issued. 

The capability of using the NOTE macro instruction is 
automatically provided when a partitioned data set is used 
CDSORG-PO or POU), but, when a sequential data set (BSAM) is 
used, the use of NOTE/POINT macro instructions must b© indicated 
in the MACRF operand of the DCB macro instruction. 

The NOTE macro is written: 


tsymbol: 

NOTE 

deb address 



1 1 TYPE=tABS1REL3 3 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block opened for the partitioned or sequential data 
set being processed. 

TYPE“{ABS|R£U 

ABS 

specifies that, after NOTE executes successfully 
(contents of register 15 is 0), register 0 contains 
the physical block identifier for the next data block 
waiting for transfer between main storage and the 
control unit buffer, and register 1 contains the 
physical block identifier of the next data block 
waiting for transfer between the control unit buffer 
and the tape drive. 

If you subtract the low-order 20 bits of register 1 
from the low-order 20 bits of register 0, the 
remainder is the number of data blocks left in the 
control unit buffer. A negative remainder means the 
buffer is in read mode, and a positive remainder means 
the buffer is in either write or read-backward mode. 

A zero remainder means that no data is buffered. 

EEL 

causes the system to return the relative position of 
the last block read from or written into a data set. 
The position, in terms of the current volume, is 
returned in register 1 as follows: 

Magnetic Tape 

The block number is in binary, right-adjusted in 
register 1 with high-order bits set to zero. Do not 
use a NOTE macro instruction for tapes without 
standard labels when: 

• The data set is opened for RDBACK (specified in 
the OPEN macro instruction), or 

• The DISP parameter of the DD statement for the 
data set specifies DX$P=MQD. 
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NOTE 


Direct Access Device 

TTRz format* where * 

IT is a 2-byta relative track number, 

R is a l^byta block (record) number on the track 

indicated by IT, 

z is a byte set to zero. 

The MOTE macro instruction cannot be used for SYSOUT data sets. 

Notes When a direct access device is being used* the amount of 
remaining space on the track is returned in register 0 if a NOTE 
macro instruction follows a WRITE macro instruction* if a NOTE 
macro instruction follows*a READ or POINT macro instruction* the 
track capacity of the direct access device is returned in 
register 0. 


/T~" 
(■ 


J COMPLETION CODES 


§ 


I 

I 


Whan the system returns control to your problem program and you 
have specified the AB3 parameter* the low-order byte of register 
15 contains a return code! the low-order byte of register 0 
contains a reason codes 

Return Reason 


Cede CIS) 

00 (X*0Q') 

04 , (X'04') 

Code CO) 

Meaning 

Successful completion. 

Device does not support block 
identifier. 

08 

CX’08') 

01 

(X'01 ! ) 

Incorrect parameter. 

OS 

CX'08 ' ) 

02 

CX’02 1 ) 

Incorrect DCB or a BEBCHK error. 

OS 

(X*08*) 

03 

(X'03*) 

Environmenta1 error. 

08 

CX'08 ' ) 

11 

CX'OB*) 

Unsuccessful call to ESTAE macro 

08 

12 

CX'08*) 

(X'OC') 

12 

(X'OC') 

Unsuccessful GETMAIM request. 

Input/output error. 


(I 
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OPEN 


OPEN—LOGICALLY CONNECT A DATA SET (EDAM, BISAM, SPAN» BSAM, QISAM, AND QSAM) 

The OPEN macro instruction causes the specified data control 
block(s) to be completed and the data setCs) identified in the 
data control block(s) to be prepared for processing. Input 
labels are analyzed and output labels are created. Control is 
given to exit routines as specified in the data control block 
exit list. The processing method (option 1) is designated to 
provide correct volume positioning for the data set and define 
the processing mode (INPUT, OUTPUT, and so forth) for the data 
set(s). Final volume positioning (when volume switching occurs) 
can be specified (option 2) to override the positioning implied 
by the DD statement DISP parameter. Option 2 applies only to 
volumes in a multivolume data set other than the last volume. 

Any number of data control block addresses and associated 
options may be specified in the OPEN macro instruction. 

The maximum number of DCBs that can be concurrently open to one 
unit is 127. 

If associated data sets for a 3525 card punch are being opened, 
all associated data sets must be open before an I/O operation is 
initiated for any of the data sets. For a description of 
associated data sets, see fl l , fln d.-Q S dV S ^i^ri a jnmin£L. S -MR R .Q. r„t ^f . fti: 

. Ca rd . Emsh . 

To support DEB validity checking, an OPEN macro instruction must 
be issued for every data extent block (DEB) created. 

The standard form of the OPEN macro instruction is written as 
follows (the list and execute forms are shown following the 
description of the standard form): 


[symbol! 

OPEN 

(deb address.[(options) I »♦..) 



,[TYPE=JJ 


deb address —A~Type Address or (2-12) 

The deb address operand(s) specifies the address of the 
data control block(s) for the data set(s) to be prepared 
for processing. 

flfijjans 

The options operands shown in the following illustration 
indicate the volume positioning available based on the 
device type and access method being used. If option 1 is 
omitted, INPUT is assumed. If option 2 is omitted, DISP is 
assumed. Option 1 must be coded if option 2 is coded. 
Option 2 is ignored for SYSIN and SYSOUT data sets. 

Options 1 and 2 are ignored for BISAM and QISAM (in the 
scan mode), and the data control block indicates the 
operation. OUTPUT or OUTIN must be specified when creating 
a data set. 
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OPEN 


Access 

Method 

Magnetic 

Tape 

DEVICE TYPE 

Direct Access 

Other Types 

/T"n 

VV 


Option 1 

Option 2 

Option 1 

Option 2 

Option 1 Option 2 


QSAM 

[INPUT 1 
[EXTENDI 
[OUTPUT] 
[RDBACK] 

[.REREAD] 
[.LEAVE 1 
[.USE ] 

[INPUT ] 
[EXTEND] 
[OUTPUT] 
[UPDAT! 

[.REREAD] 
[.LEAVE ] 
C.E1SJB 1 

[INPUT ] — 

[EXTEND] 

[OUTPUT! 


BSAM 

[INPUT ] 
[EXTEND] 
[OUTINX] 
[OUTPUT! 
[INOUT ] 
[OUTIN ] 
[RDBACK] 

[.REREAD] 
[.LEAVE 1 
[.£!§£ ] 

[INPUT ] 
[EXTEND] 
[OUTINX] 
[OUTPUT] 
[INOUT ] 
[OUTIN ] 
[UPDAT ] 

[.REREAD] 
[.LEAVE ] 
[.fcISE 1 

[INPUT 1 — 

[OUTPUT! 

(OUTPUT! 

[OUTPUT] 


QISAM 

Load Mode 

— 

— 

[OUTPUT] 

[EXTEND] 

— 

— — 


BPAM, 

BDAM 



[INPUT 1 
[OUTPUT] 
[UPDAT ] 





The following describes the options shown in the preceding 

illustration. All option operands are coded as shown. 

Option 1 Meaning 

EXTEND 1 The data set is treated as an OUTPUT data set, except 
that records will be added to the end of the data set 
regardless of what was specified on the DISP parameter 
of the DD statement. 

INPUT Input data set. 

INCUT 1 The data set is first used for input and, without 

reopening, is used as an output data set. The data 
set is processed as INPUT if it is a SYSIN data set or 
if LABEL=(,,,IN) is specified in the DD statement. 

OUTPUT Output data set (for BDAM, OUTPUT is equivalent to 
UPDAT). 

OUTIN 1 The data set is first used for output and, without 

reopening, is used as an input data set. The data set 
is processed as OUTPUT if it is a SYSOUT data set or 
if LABEL=(,,,0UT) is specified in the DD statement. 

OUTINX 1 The data set is treated as an OUTIN data set, except 
that records will be added to the end of the data set 
regardless of what was specified on the DISP parameter 
of the DD statement. 

RDBACK Input data set, positioned to read backward. 

Note: Variable-length records cannot be read 

backward. 

UPDAT Data set to be updated in place or, for BDAM, blocks 
are to be updated or added. 

1 These options are not allowed for ISO/ANSI/FIPS Version 3 # 

tape processing. i 1 , 
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OPEN 


Option 2 Meaning 

LEAVE Positions the current tape volume to the logical end 
of the data set when volume switching occurs. If 
processing was forward, the volume is positioned to 
the end of the data set; if processing was backward 
(RDBACK), the volume is positioned to the beginning of 
the data set. 

REREAD Positions the current tape volume to reprocess the 

data set when volume switching occurs. If processing 
was forward, the volume is positioned to the beginning 
of the data set; if processing was backward (RDBACK), 
the volume is positioned to the end of the data set. 

DISP Specifies that a tape volume is to be disposed of in 

the manner implied by the DD statement associated with 
the data set. Direct access volume positioning and 
disposition are not affected by this parameter of the 
OPEN macro instruction. There are several 
dispositions that can be specified in the DISP 
parameter of the DD statement; DISP can be PASS, 
DELETE, KEEP, CATLG, or UNCATLG. This option has 
significance at the time an end-of-volume condition is 
encountered only when DISP is PASS. The end-of-volume 
condition may result from the issuance of an FEOV 
macro instruction or may be the result of reaching the 
end of a volume, 

If DISP is PASS in the DD statement, the tape will be 
spaced forward to the end of the data set on the 
current volume. 

If any DISP option is coded in the DD statement, 
(except when DISP is PASS), the resultant action at 
the time an end-of-volume condition arises depends on 
(1) how many tape units are allocated to the data set 
and (2) how many volumes are specified for the data 
set in the DD statement. This is determined by the 
UNIT and VOLUME parameters of the DD statement 
associated with the data set. If the number of 
volumes is greater than the number of units allocated, 
the current volume will be rewound and unloaded. If 
the number of volumes is less than or equal to the 
number of units, the current volume is merely rewound. 

Note: When the DELETE option is specified, the system waits for 

the completion of the rewind operation before it continues 
processing subsequent reels of tape. 

The LEAVE and REREAD options are meaningless except for magnetic 
tape and CLOSE TYPE=T. Any other options specified for CLOSE 
TYPE=T besides LEAVE and REREAD will be treated as LEAVE during 
execution. 

TYPE=J 

You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a job file 
control block (JFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DD 
statement. This option, because it is used in conjunction 
with modifying a JFCB, should be used only by the system 
programmer or only under the system programmer*s 
supervision. 

When you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to discretion, but you must specify the device 
allocation and a ddname that corresponds to the associated 
data control block DCBDDNAM field. 

For more detailed information on using TYPE=J, see 
S-YS-t em- Pa t a.. A d mini st ca. t 1a n . 
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OPEN 


Note: After the OPEN macro instruction has been executed, bit 3 

of the DCBOFLGS field in the data control block is set to 1 if 
the data control block has been opened successfully, but is set 
to 0 if the data control block has not been opened successfully. 

Note: To use the OPEN macro instruction supplied in the MVS/XA 

macro library on MVS/370, use the SPLEVEL macro instruction. 

You must use the SPLEVEL macro instruction to ensure that the 
MVS/XA version of the OPEN macro instruction executes 
successfully on MVS/370 DFP. For information on how to use the 
SPLEVEL macro, see System Macros and Facilities * Volume 2. 
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The following errors cause the results indicated* 


Error 

Result 

Attempting to open a data control 
block that is already open. 

No action. 

Attempting to open a data control 
block when the deb address 
operand does not specify the 
address of a data control block. 

Unpredictable. 

Attempting to open a DCB for a 
printer with the UCS feature and 
an error occurred when attempting 
to block or unblock data checks 
(specified by the presence or 
absence of QPTCD-U in the DCB 
macro). 

Task abnormally 
terminated. 

Attempting to open a data control 
block when a corresponding DD 
statement has not been provided. 

A ”DD STATEMENT MISSING” 
message is issued. An 
attempt to use the data 
set causes unpredictable 

results. 


The last of these errors can be detected by testing bit 3 of the 
DCB0FLG3 field in the data control block. Bit 3 is set to 0 in 
the case of an error and can be tested by the sequence * 

TM DCBOFLGS# X 8 X 0 f 

BZ ERRQRRTN (Branch to usar f s error routine) 

Executing the two instructions shown above requires writing a 
DCBD macro instruction in the program# and a base register must 
be defined with a USING statement before the instructions are 
executed * 
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OPEN 


fiE£Mz=US3LEQRM 

The list form of the OPEN macro instruction is used to construct f X 
a data management parameter list. Any number of operands (data y_y 
control block addresses and associated options) can be 
specified. 

The list consists of a one-word entry for each DCB in the 
parameter list; the high-order byte is used for the options and 
the three low-order bytes are used for the DCB address. The end 
of the list is indicated by a 1 in the high-order bit of the 
last entry’s option byte. The length of a list generated by a 
list form instruction must be equal to the maximum length list 
required by any execute form instruction that refers to the same 
list. A maximum length list can be constructed by one of two 
methods* 

• Code a list-form instruction with the maximum number of 
parameters that are required by an execute form instruction 
that refers to the list. 

• Code a maximum length list by using commas in a list-form 
instruction to acquire a list of the appropriate size. For 
example, coding OPEN (,,,,,,,,,),MF=L would provide a list 
of five fullwords (five deb addresses and five options). 

Entries at the end of the list that are not referenced by the 
execute-form instruction are assumed to have been filled in when 
the list was constructed or by a previous execute-form 
instruction. Before using the execute-form instruction, you may 
shorten the list by placing a 1 in the high-order bit of the 
last DCB entry to be processed. 

A zeroed work area on a fullword boundary is equivalent to OPEN 
C,(INPUT,DISP),...),MF=L and can be used in place of a list-form 
instruction. The high-order bit of the last DCB entry must 
contain a 1 before this list can be used with the execute-form 
instruction. ^ J 

A parameter list constructed by an OPEN, list-form, macro 
instruction can be referred to by either an OPEN or CLOSE 
execute form instruction. 

The description of the standard form of the OPEN macro 
instruction provides the explanation of the function of each 
operand. The d® scr iP^i° n the standard form also indicates 
which operands are completely optional and those required in at 
least one of tho pair of list and execute forms. The format 
description below indicates the optional and required operands 
in the list/form only. 

The list fot'm of the OPEN macro is written* 


* symbol* 

OPEN 

11 dob ..address* > * < options >*.»♦• * 



,MF=L 



[ > TYPE-J * 


—A-Type Address 
MF=L—Cbded as shown 

The MF=L operand specifies that the OPEN macro instruction 
is used to create a data management parameter list that is 
referenced by an execute form instruction. 

TYPE=J 

You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a job file 
control block (JFCB) to be used during initialization. A x 

JFCB is an internal representation of information in a DD f 

statement. This option, because it is used in conjunction \ y 
with modifying a JFCB, should be used only by the system 
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programmer or only under the system programmer *s 
supervision. 

Nhen you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to your discretion, but you must specify the 
device allocation and a ddname that corresponds to the 
associated data control block DCBDDNAM field. 

For more detailed information on using TYPE-J, see 

Sy g . t e r rn D a- t A d min i s ir a ii s m ■ 
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OPEN 

flgEtt=EXECUI.E.,EflBM 


A remote data management parameter list is used in, and can be f 

modified by, the execute form of the OPEN macro instruction. 

The parameter list can be generated by the list form of either 
an OPEN or CLOSE macro instruction. 

The description of the standard form of the OPEN macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
which operands are totally optional and those required in at 
least one of the pair of list and execute forms. The format 
description below indicates the optional and required operands 
in the execute form only. 

The execute form of the OPEN macro is written? 


[symbol I 

OPEN 

11 Cdcb address)>[(options))». 
»MP=(E»{data management list 

.. )1 

address!(1)1) 



[,TYPE=J] 


deb address —RX-Tvoe Address or (2-12) 

MF= (E, .ggmeiit- JL i s.t a d d r es s 1(1)} 

This operand specifies that the execute form of the OPEN 
macro instruction is used, and an existing data management 
parameter list (created by a list-form instruction) is 
used. The HF" operand is coded as follows? 

E—Coded as shown 

isjLjad d Efi s s—RX-Type^ (2-12), (1) 

TYPE=J 

You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a job file 
control block (JFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DD 
statement. This option, because it is used in conjunction 
with modifying a JFCB, should be used only by the system 
programmer or only under the system programmer S s 
supervision. 

Nhen you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to your discretion, but you must specify the 
device allocation and a ddname that corresponds to the 
associated data control block DCBDDNAM field. 

For more detailed information on using TYPE=J, see 

5 y .a.t s mzDa ta JLdminis-t r at ism • 
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The PDAB macro instruction is used in conjunction with the GET 
(TYPE^P) macro instruction. It defines an area in the problem 
program where the open and close routines build and maintain a 
queue of DCB addresses for use by the get routine. 

The parallel data access block is constructed during the 
assembly of the problem program. The MAXDCB operand must be 
coded in the PDAB macro instruction# because it cannot be 
supplied from any other source. 

Certain data set characteristics prevent a DCB address from 
being available on the queue—see the description of QSAM 
parallel input processing in Data A dffli n i S t r a tl 9 n .G.Mi d e. 

The PDAB macro is written: 


C symbo l3 


PDAB 


MAX D CB=,d g b-j}.umb.gr 


MAXDCB=absexp (maximum value is 32767) 

specifies the maximum number of DCBs that you require in 
the queue for a GET request. 

Note: The number of bytes required for PDAB is equal to 

24+8n# where n is the value of the keyword# MAXDCB. 
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jf \ 

V v. ^ 

descriptions of the fields appear in Appendix G, ”PDABD Symbolic 
Field Names” on page 228. 

The name of the dummy control section generated by a PDABD macro 
instruction is IHAPDAB. The use of any of the symbolic names 
provided by the dummy section should be preceded by a USING 
instruction specifying IHAPDAB and a dummy section base register 
containing the address of the actual parallel data access block. 

The PDABD macro instruction should only be used once within any 
assembled module; however, the resulting symbolic names can be 
used for any number of parallel data access blocks by changing 
the address in the dummy section base register. The PDABD macro 
instruction can be coded at any point in a control section. If 
coded at any point other than at the end of a control section, 
the control section must be resumed by coding a CSECT 
instruction. 

The PDABD macro is written: 


The PDABD macro instruction is used to generate a dummy control 
section that provides symbolic names for the fields in one or 
more parallel data access blocks. The names, attributes, and 


b 


PDABD 


b 
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POINT—POSITIONTO A RELATIVEBLOCK (BPAM AND BSAM—TAPE AND DIRECT ACCESS ONLY) 

The POINT macro starts the next READ or WRITE operation at the 
specified data set block on the current volume. Before you 
issue POINT macro, ensure that all input and output operations 
using the same data control block are tested for completion. If 
you are processing a data set that has been opened for UPDAT, 
you must issue a READ macro immediately after the POINT macro. 

If you are processing an output data set, you must issue a WRITE 
macro immediately after the POINT macro before you close the 
data set, unless you have already issued the CLOSE macro (with 
TYPE=T specified) before the POINT macro. 

Note: If you specify the TYPE=T option in the CLOSE macro and 

you do not issue a WRITE macro before you close the data set, 
use the end-of-data location that is determined by TCLOSE. 

The POINT macro is written: 


Isymbflll 

POINT 

dcb...a.ddrs.ss 



address 

,[TYPE={ABS1RELT1 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened data set that is to be 
positioned. 

block address —RX-Type Address, (2-12), or (0) 

The block address operand indicates which block in the data 
set is to be processed next. 

For an IBM 3480 Magnetic Tape subsystem, when TYPE=ABS is 
specified, the block address operand specifies the address 
of a fullword on a fullword boundary that contains the 
physical block identifier of the block in the data set that 
is to be processed next. This physical block identifier is 
provided as output from a prior execution of the NOTE 
macro. 

When TYPE=REL is specified or defaults, the block address 
operand specifies the address of a fullword on a fullword 
boundary that contains the relative address of the block in 
the data set that is to be processed next. The relative 
address is specified as follows: 

Magnetic Tape: The block number is in binary and is 
right-adjusted in the fullword with the high-order bits set 
to 0; add 1 if reading tape backward. Do not use the POINT 
macro instruction for tapes without standard labels when: 

• The data set is opened for RDBACK, or 

• The DD statement for the data set specifies DISP=M0D 

If 0PTCD=H is indicated in the data control block, the 
POINT macro instruction can be used to perform record 
positioning on DOS tapes that contain embedded checkpoint 
records. Any embedded checkpoint records that are 
encountered during the record positioning are bypassed and 
are not counted as blocks spaced over. 0PTCD=H must be 
specified in a job control language DD statement. Do not 
use the POINT macro instruction to backspace DOS 7-track 
tapes that are written in data convert mode and that 
contain embedded checkpoint records. 

Note: When an end-of-data condition is encountered on 

magnetic tape, you must not issue the POINT macro 
instruction unless you have first repositioned the tape for 
processing within your data set; otherwise, the POINT 
operation will be unsuccessful. (Issuing CLOSE TYPE=T is 
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an easy method to use to accomplish repositioning in your 
EODAD routine.) 

Direct Access Device* The fullword specified in the block 
address operand contains the relative track address (in the 
form TTRz), where: 

TT is a 2-byte relative track number. 

R is a 1-byte block (record) number on the track 

indicated by TT. 

z is a byte set to 0; it may also be set to 1 to retrieve 
the block following the TTR block. 

Note: The first block of a magnetic tape data set is 

always specified by the hexadecimal value 00000001. The 
first block of a direct access device data set can be 
specified by either hexadecimal 00000001 or 00000100 (see 
the preceding description of TTRz). 

TYPE=£ABS|RIU 

indicates whether the block address operand is a physical 
block identifier or a relative address. 

ABS 

indicates that the block address operand specifies an 
address of a fullword on a fullword boundary 
containing a physical block identifier of the block in 
the data set that is to be processed next. 

REJL 

indicates that the block address operand specifies an 
address of a fullword on a fullword boundary 
containing the relative address of the block in the 
data set that is to be processed next. 

POINT cannot be used for SYSIN or SYSOUT data sets. 

If the volume cannot be positioned correctly or if the block 
identification is not of the correct format, the error analysis 
(SYNAD) routine is given control when the next CHECK macro 
instruction is executed. 


| COMPLETION CODES 

Nhen the system returns control to your problem program and you 
have specified the ABS parameter, the low-order byte of register 
15 contains a return code; the low-order byte of register 0 
contains a reason code: 

I Return Reason 

Code (15) Code (0) Meaning 


00 (X'OO 1 ) Successful completion. 

04 (X , 04 f ) Device does not support block 

identifier. 

08 (X*08 f ) 01 (X'01 1 ) Incorrect parameter. 

08 (X 1 08 1 ) 02 (X 1 02 1 ) Incorrect DCB or a DEBCHK error. 

08 (X 1 08 1 ) 03 (X f 03*) Environmental error. 

08 (X'08 1 ) 11 (X 1 0B 1 ) Unsuccessful call to ESTAE macro. 

08 (X f 08*) 12 (X'OC 1 ) Unsuccessful GETMAIN request. 

12 (X f 0C f ) Input/output error. ^ x 

As 
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The PRTOV macro instruction is used to control the page format 
for an online printer when carriage control characters are not 
being used or to supplement the carriage control characters that 
are being used* 

The PRTOV macro instruction causes the system to test for an 
overflow condition on the specified channel (either channel 9 or 
channel 12) of the printer carriage control, and either skip the 
printer carriage to the line corresponding to channel 1, or 
transfer control to the exit address, if one is specified. 
Overflow is detected after printing the line that follows the 
line corresponding to channel 9 or channel 12. The PRTOV macro 
should be issued each time you want the system to test for an 
overflow condition. 

Nhen the PRTOV macro instruction is used with a 3525 card punch, 
print feature, channel 9 or 12 can be tested. If an overflow 
condition occurs, control is passed to the overflow exit routine 
if the overflow exit address is coded, or a skip to channel 1 
(first print-line of the next card) occurs. 

Nhen requesting overprinting (for example, to underscore a 
line), the PRTOV macro instruction is issued before the first 
PUT or NRITE macro instruction only. The PRTOV macro 
instruction should be issued only when the device type is an 
online printer. PRTOV cannot be used to request overprinting on 
the 3525. Overprinting cannot be performed on the 3800. 

The PRTOV macro is written. 0 


ts.Ymh.al 3 

PRTOV 

dah-sdrinsss 



,{9112} 



£,SYjerllaM exit address3 


deb address —RX-Tvpe Address or (2-12) 

The deb address operand specifies the address of the data 
control block opened for output to an online printer or 
3525 card punch with a print feature. 

9 —-Coded as shown 
12—Coded as shown 

These operands specify the channel that is to be tested by 
the PRTOV macro instruction. For an online printer, 9 and 
12 correspond to carriage control channels 9 and 12. For 
the 3525 card punch, 9 corresponds to print line number 17, 
and 12 corresponds to print line number 23. More detail 
about the card print-line format is included in OS and 
QS/VS Programming Support for the IBM-3505 Card Reader and 
UtL35Z!LJ£aizL£ws± > 

gyerfl_o w exit address— RX-Type Address or (2-12) 

The overflow exit address operand specifies the address of 
the use?—supplied routine to be given control when an 
overflow condition is detected on the specified channel * 

If this operand is omitted, the printer carriage skips to 
the first line of the next page or the 3525 skips to the 
first line of the next card before executing the next PUT 
or NRITE macro instruction. 
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Nhen the overflow exit routine is given control# the contents of 
the registers are as follows? 

Register Contents 


j 
| 

J 0 and 1 

2-13 

14 

15 


The contents are destroyed. 

The same contents as before the macro instruction was 
executed. 

Return address. 

Overfjow exit routine address. 
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The PUT macro instruction causes the system to write a record 
into an indexed sequential data set. If the move mode is used* 
the PUT macro instruction moves a logical record into an output 
buffer from which it is written. If locate mode is specified* 
the address of the next available output buffer segment is 
available in register 1 after the PUT macro instruction is 
executed. The logical record can then be constructed in the 
buffer for output as the next record. The records are blocked 
by the system (if specified in the data control block) before 
being placed in the data set. The system uses the length 
specified in the record length (DCBLRECL) field of the data 
control block as the length of the record currently being 
written. When constructing blocked variable-length records in 
the locate mode* the problem program may either specify the 
maximum record length once in the DCBLRECL field of the data 
control block or provide the actual record length in the 
DCBLRECL field before issuing each PUT macro instruction. Use 
of the maximum record length may result in more but shorter 
blocks* because the system uses this length when if tests to see 
if the next record can be contained in the current block. 

The PUT macro instruction is used to create or extend an indexed 
sequential data set. To extend the data set* the key of any 
added record must be higher than the highest key existing in the 
data set* and the disposition parameter of the DD card must be 
specified as DISP=MGD. The new records are placed in the prime 
data space* starting in the first available space* until the 
original space allocation is exhausted. 

To create a data set using previously allocated space* the 
disposition parameter of the DD card must specify BI$P”01D. 

The PUT macro is written* 


Isvmbol3 

PUT 

deb address 





deb addre ss—RX-Type Address* (2-12)* or (1) 

The deb address operand specifies the address of the data 
control block for the opened ISAM data set. 

area address—RX-Type Address, (2-12)* or (0) 

The area address operand specifies the address of the are-i 
that contains the record to be written (move mode only). 
Either move or locate mode can be used with QISAM* but they 
must not be mixed within the specified data control block. 
The following describes operations for locate and move 
modesi 

Locate Modes If locate mode is specified in the data 
control block* the area address operand must be omitted. 

The system returns the address of the next available buffer 
in register 1* this is the buffer into which the next 
record is placed. The record is not written until another 
PUT macro instruction is issued for the same data control 
block. The last record is written when a CLOSE macro 
instruction is issued to close the data set. 

Move Mods* If novj mode has been specified in the data 
control block* the area address operand must specify the 
address in the problem program that contains the record 
be written. The system moves the record from the area to 
an output buffer before control is returned. If the area 
address operand is omitted* the system assumes that 
register 0 contains the area address. 
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The error analysis (SYNAD) routine is given control if the 
output operation could not he completed satisfactorily* The 
contents ©f the registers when the error analysis routine is 
given control are described in Appendix A* ’’Status Information 
Following an Input/Output Operation’ 1 on page 190. 
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The PUT macro instruction causes the system to write a record in 
a sequential data set. Various modes are available and are 
specified in the DCB macro instruction. In the locate mode, the 
address of an area within an output buffer is returned in 
register 1 after the macro instruction is executed. The user 
should subsequently construct, at this address, the next 
sequential record or record segment. The move mode of the PUT 
macro instruction causes a logical record to be moved into an 
output buffer. In the data mode, which is available only for 
variable-length spanned records, the PUT macro instruction moves 
only the data portion of the record into one or more output 
buffers. 

The records are blocked by the control program (as specified in 
the data control block) before being placed in the data set. 

For undefined-length records, the DCBLRECL field determines the 
length of the record that is subsequently written. For 
variable-length records, the DCBLRECL field is used to locate a 
buffer segment of sufficient size (locate mode), but the length 
of the record actually constructed is verified before the record 
is written (the output block can be filled to the maximum if, 
before issuing the PUT macro, DCBLRECL is set equal to the 
record length). For variable-length spanned records, the system 
segments the record according to the record length, buffer 
length, and amount of unused space remaining in the output 
buffer. The smallest segment created will be 5 bytes, 4 for the 
segment descriptor word plus 1 byte of data. 

If the ISCII/ASCII translation routines are included when the 
operating system is generated, translation can be requested by 
coding LABEL=(,AL) or (,AUL) in the DD statement, or it can be 
requested by coding 0PTCD=Q in the DCB macro instruction or DCB 
subparameter of the DD statement. Nhen translation is 
requested, all QSAM records whose record format (RECFM operand) 
is F, FB, D, DS, DB, DBS, or U are automatically translated from 
EBCDIC code to ISCII/ASCII code. For translation to occur 
correctly, all output data must be in EBCDIC code; any EBCDIC 
character that cannot be translated into an ISCII/ASCII 
character is replaced by a substitute character. 

The PUT macro is written: 


[symbol.: 

PUT 

deb .-a ddr ess 



[»ar.ea_ address! 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the data set opened for output. 

area address —RX-Type Address, (2-12), or (0) 

The area address operand specifies the address of an area 
that contains the record to be written (move or data mode). 
The move, locate, or data mode can be used with QSAM, but 
they must not be mixed within the specified data control 
block. If the area address operand is omitted in the move 
or data mode, the system assumes that register zero 
contains the area address. The following describes the 
operation of the three modes: 

Locate Mode: If locate mode is specified, the area address 
operand must be omitted. The system returns the address of 
the next available buffer in register 1; this is the buffer 
into which the next record is placed. 

Nhen variable-length spanned records are processed without 
the extended logical record interface (XLRI), and a record 
area has been provided for a logical record interface (LRI) 
(BFTEK=A has been specified in the data control block or a 
BUILDRCD macro instruction has been issued), the address 
returned in register 1 points to an area large enough to 
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| contain the maximum record size Cup to 32756 bytes). The 

system segments the record and writes all segments, 
providing proper control codes for each segment. If, for 
variable-length spanned records, an area has not been 
provided, the actual length remaining in the buffer will be 
returned in register 0, In this case, it is the user's 
responsibility to segment the records and process them in 
terms of record segments. ISO/ANSI/FIPS spanned records, 
RECFM=DS or RECFM=DRS, may not be processed in segment 
mode. The record or segment is not written until another 
PUT macro instruction is issued for the same data control 
block. The last record is written when the CLOSE macro 
instruction is issued. 

When a PUT macro instruction is used in the locate mode, 
the address of the buffer for the first record or segment 
is obtained by issuing a PUT macro after open. QSAM 
returns the address in register 1. The user then moves 
data to this address. The buffer is not written to the 
data set until the next PUT macro is issued. If records 
are blocked, the data is not written to the data set until 
the PUT following the one that filled the buffer. Each PUT 
macro will return the address of the next buffer in 
register 1. After this address is given to the user, QSAM 
will always count this address as a valid record. The user 
should always place valid data at the address returned in 
register 1 before issuing another PUT or FEOV or CLOSE 
MACRO; otherwise, residual data at that location will be 
written to the data set. After an FEOV macro is issued, 
(for multivolume data sets), register 1 must be 
reinitialized with the first buffer address for the next 
volume by issuing a PUT macro after return from FEOV. 

Move Mode: If move mode has been specified in the data 
control block, the area address operand specifies the 
address of the area that contains the record to be written. 
The system moves the record to an output buffer before 
control is returned. 

Data Mode: If data mode is specified in the data control 
block (data mode can be specified for variable-length 
spanned records only), the area address operand specifies 
the address of an area in the problem program that contains 
the data portion of the record to be written. The system 
moves the data portion of the record to an output buffer 
before control is returned. The user must place the total 
data length in the DCBPRECL (not the DCBLRECL) field of the 
data control block before the PUT macro instruction is 
issued. 

Extended Logical Record Interface (XLRI): When the PUT 
macro is used with the extended logical record interface, 
the address returned in register 1 points to an area that 
is used to build a 4-byte logical record length field (RDW) 
followed by a complete logical record. The logical record 
length byte count occupies the three low-order bytes of the 
record length field and must include the length of the 
field. The high-order byte must be zero. The DCB LRECL 
value indicates the length of the longest logical record of 
the data set in , K I (1024-byte) units. 


PUT ROUTINE EXIT 


If the output operation could not be completed satisfactorily, 
the error analysis (SYNAD) routine is given control after the 
next PUT instruction is issued. The contents of the registers 
when the error analysis routine is given control are described 
in Appendix A, "Status Information Following an Input/Output 
Operation" on page 190. 
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PUTX—WRITE A RECORD FROM AN EXISTING DATA SET (QISAMANDQSAM) 

The PUTX macro instruction causes the control program to return 
an updated record to a data set (QISAM and QSAM) or to write a 
record from an input data set into an output data set (QSAM 
only). There are two modes of the PUTX macro instruction. The 
output mode (QSAM only) allows writing a record from an input 
data set on a different output data set. The output data set 
may specify the spanning of variable-length records, but the 
input data set must not contain spanned records. 

The update mode returns an updated record to the data s&t from 
which it was read. The logical records are blocked by the 
control program, as specified in the data control block, before 
they are placed in the output data set. The control program 
uses the length specified in the DCBLRECL field as the length of 
the record currently being stored. Control is not returned to 
the user's program until the control program has processed the 
record. 

For SYSIN or SYSOUT data sets, the PUTX macro instruction can be 
used only in the output mode. 

The PUTX macro is written* 


t symbol! 

PUTX 

deb-address 



I »i.npu.t.-dob._addr.essl 


d eb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for a data set opened for output. 

jpp„ u i . ^d g fa--addCfi SS —RX-Type Address, (2-12), or (0) 

The input deb address operand specifies the address of a 
data control block opened for input. The PUTX macro 
instruction can be used for the following modes: 

Output Mode: This mode is used with QSAM only. The input 
deb address operand specifies the address of the data 
control block opened for input. If this operand is 
omitted, the system assumes that register 0 contains the 
input deb address. 

Update Mode: The input deb address operand is omitted for 
update mode. 


PUTX ROUTINE EXIT 


The error analysis (SYNAD) routine is given control if the 
operation is not completed satisfactorily. The contents of the 
registers when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 190. 
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The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. Control 
may be returned to the problem program before the block is 
retrieved. The input operation must be tested for completion 
using a CHECK or WAIT macro instruction. A data event control 
block* shown in Appendix A, "Status Information Following an 
Input/Output Operation” on page 190; is constructed as part of 
the macro expansion. 

The standard form of the READ macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


[ symbol ! 


READ 


decb name 
. type 

. d e b ad dr e ss 
.t area address I'S'} 
.Clsnatbl'S'J 
.{ key addres s I'S' 10} 
.blo ck a ddc&ss 
[.n ex t- a dd ress ! 


decb name—symbol 

The decb name operand specifies the name assigned to the 
data event control block created as part of the macro 
expansion. 

type— {PI[F|X1CRIRU3} 

CDKCFIX]CR|RU]} 

The type operand is coded in one of the combinations shown 
above to specify the type of read operation and the 
optional services performed by the system: 

DI 

specifies that the data and key, if any, are to be 
read from a specific device address. The device 
address, which can be designated by any of the three 
addressing methods, is supplied by the block address 
operand. 

DK 

specifies that the data (only) is to be read from a 
device address identified by a specific key. The key 
to be used as a search argument must be supplied in 
the area specified by the key address operand; the 
search for the key starts at the device address 
supplied in the area specified by the block address 
operand. The description of the DCB macro 
instruction, LIMCT operand, contains a description of 
the search. 

F 

requests that the system provide block position 
feedback into the area specified by the block address 
operand. This character can be coded as a suffix to 
DI or DK as shown above. 

X 

requests exclusive control of the data block being 
read, and that the system provide block position 
feedback into the area specified by the block address 
operand. The descriptions of the WRITE and RELEX 
macro instructions contain a description of releasing 
a data block that is under exclusive control. This 
character can be coded as a suffix to DI or DK as 
shown above. 
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R 

requests that the system provide next address feedback 
into the area specified by the next address operand. 
When R is coded, the feedback is the relative track 
address of the next data record. This character can 
be coded as a suffix to DI or DK, DIF, BIX, BKF, or 
DKX as shown above, but can be coded only for use with 
variable-length spanned records. 

RU 

requests that the system provide next address feedback 
into the area specified by the next address operand. 
When RU is coded, the feedback is the relative track 
address of the next capacity record (RO) or data 
record whichever occurs first. These characters can 
be coded as a suffix to DI, BK, DIF, BIX, BKF, or DKX, 
but it can be coded only for use with variable-length 
spanned records. 

d.£b-ja,d.dn.e.g^—A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block opened for the data set to be read. 

—A-Type Address, (2-12), or f S f 
The area address operand specifies the address of the area 
in which the data block is to be placed. If *S® is coded 
instead of an address, dynamic buffering is requested 
(dynamic buffering must also be specified in the MACRF 
operand of the DCB macro instruction). When dynamic 
buffering is used, the system acquires a buffer and places 
its address in the data event control block. 

length —symbol, decimal digit, absexp, (2-12), or *S* 

The length operand specifics the number of data bytes to be 
read up to a maximum of 32760. If f S® is coded instead of 
a length, the number of bytes to be read is taken from the 
data control block. If the length operand is omitted for 
format-U records, no error indication is given when the 
program is assembled. However, the problem program must 
insert a length into the data event control block before 
the read is issued. 

kev address —A-Type Address, (2-12), f $ 9 , or 0 

The key address operand specifies the address of the area 
for the key of the desired data block. If the search 
operation is made using a key, the area must contain the 
key. Otherwise, the key is read into the designated area. 
If the key is read and f S f was coded for the area address, 
f S # can also be coded for the key address; the key and data 
are read sequentially into the buffer acquired by the 
system. If the key is not to be read, specify 0 instead of 
an address or *S f . 

b l p fi k . a d d r es s —A-Type Address or (2-12) 

The block address operand specifies the address of the area 
containing the relative block address, relative track 
address, or actual device address of the data block to be 
retrieved. The device address of the data block retrieved 
is placed in this area if block position feedback is 
requested. The length of the area that contains the 
address depends on whether the feedback option (QPTCD=F) 
has been specified in the data control block and if the 
READ macro instruction requested feedback. 

If 0PTCD=F has been specified, feedback (if requested) is 
in the same form as originally presented by the READ macro 
instruction, and the field can be either 3 or 8 bytes long, 
depending on the type of addressing. 

If 0PTCD=F has not been specified, feedback (if requested) 
is in the form of an actual device address, and the field 
must be 8 bytes long. 
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DmdL,.addCfiSS"—A~Type Address or (2-12) 

The next address operand specifies the address of the 
storage area in which the system places the relative 
address of the next record. The length Operand must be 
specified as ! S f . When the next address operand is 
specified, an R or RU must be added to the type operand 
(for example, DIR or DIRU). The R indicates that the next 
address returned is the next data record. RU indicates 
that the next address returned is for the next data or 
capacity record, whichever occurs first. The next address 
operand can be coded only for use with variable-length 
spanned records. 
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The READ macro instruction causes an unblocked record# or a 
block containing a specified logical record# to be retrieved 
from a data set. The block is placed in a designated area of 
storage, and the address of the logical record is placed in the 
data event control block. The data event control block is 
constructed as part of the macro expansion and is described in 
Appendix A# "Status Information Following an Input/Output 
Operation" on page 190. 

Control may be returned to the problem program before the block 
is retrieved. The input operation must be tested for completion 
using a MAIT or CHECK macro instruction. 

The standard form of the READ macro instruction is written as 
follows for BISAM (the list and execute forms are shown 
following the descriptions of the standard form)? 



ri M fa-na m s 

9 type 

» deb address 
v* {ai^a-_add.cfisa 1 1 S 1 > 
9 Cl^ixsibI S s 9 } 
»ligY_addj2figs 


The deeb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 

±y^—£K!KUJ 

The type operand is coded as shown to specify the type of 
read operation? 

K 

specifies normal retrieval. 

SCO 

specifies that the record retrieved is to be updated 
and returned to the data sat; the system saves the 
device address to be returned. 

When an ISAM data set is being updated with a READ KU 
macro instruction and a WRITE K macro instruction# 
both the READ and WRITE macro instructions must 
reference the same data event control block. This 
update operation can be performed by using a list-forif! 
instruction to create the list (data event control 
block) and by using the execute form of the READ and 
WRITE macro instructions to reference the same list. 

deb address —A-Type Address or (2-i2) 

The deb address Operand specifies the- address of the data 
control block for the opened data set to be read. 

area address —A-Type Address# (2-12)# or 'S* 

The area address operand specifies the address of the area 
ir; which the data block is placed. The first 16 bytes of 
this area are used by the system and do not contain 
information from the data block. The area address must 
specify a different area than the key address. Dynamic 
buffering is specified by coding ’S 1 instead of an address; 
the address of the acquired storage area is returned in the 
data event control block. Indexed sequential buffer and 
work area requirements are described in Data Administration 
Guide . 
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length -—symbol, decimal digit, absexp, (2-12), or f S f 

The length operand specifies the number of bytes to be read 
up to a maximum of 32760. If *$* is coded instead of a 
length, the number of bytes to be read is taken from the 
count field of the record; for blocked records, 1 S* must be 
coded. 

kftlLAdriMSS—A-Type Address or (2-12) 

The key address operand specifies the address of the area 
in the problem program containing the key of a logical 
record in the block that is to be retrieved. Nhen the 
input operation is completed, the storage address of the 
logical record is placed in the data event control block. 
The key address must specify a different area than the area 
address. 
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READ — REA D A. B L OCK. [tf t MLM ILB SM l 

The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. Control 
may be returned to the problem program before the block is 
retrieved. The input operation must be tested for completion 
using a CHECK macro instruction. A data ev*nt control block/ 
shown in Appendix A/ "Status Information Following an 
Input/Output Operation" on page 190/ is constructed as part of 
the macro expansion. 

If the OPEN macro instruction specifies UPDAT/ both the READ and 
WRITE macro instructions must reference the same data event 
control block. (See the list form of the READ or WRITE macro 
instruction for a description of how to construct a data event 
control block; see the execute form of the READ or WRITE macro 
instruction for a description of how to modify an existing data 
event control block.) 

The standard form of the READ macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form instructions): 


tSYJnlLQ.13 


READ 


de.£b-_namfi 

f-typ.e 

9 dsih-addness 
».ar.e a .. addres s 

l f length I»'S' ] 


rie c k-...p a rn e —symbol 

The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 

type —{SFlSBl 

The type operand is coded as shown to specify the type of 
read operation: 

SF 

specifies normal/ sequential/ forward retrieval. 

SB 

specifies a read-backward operation; this operand can 
be specified only for magnetic tape with format-F or 
format-U records. 

This operand is intended to be used when the data set 
is OPEN for RDBACK. Tape positioning/ label 
processing/ and volume mounting errors will occur 
during EOV and CLOSE if an OPEN option/ other than 
RDBACK/ is used. 

dfihL-ajd.dti e . S5 —A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block for the opened data set to be read. 

area address —A-Type Address or (2-12) 

The area address operand specifies the address of the 
problem program area in which the record is placed. When a 
READ SB macro instruction is issued/ the area address must 
be the address of the last byte of the area into which the 
record is read. If the data set contains keys/ the key is 
read into the buffer followed by the data. 

length —symbol/ decimal digit/ absexp/ (2-12)/ or f S f 

The length operand specifies the number of data bytes to be 
read/ to a maximum of 32760. If the data is translated 
from ISCII/ASCII code to EBCDIC code, the maximum number of 
bytes that can be read is 2048. For format-U records/ f S l 
or a valid length must be coded. The number of bytes to be 
read is taken from the data control block if , S I is coded 
instead of a number. (This operand is ignored for format-F 
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or format-^/ records.) For format-D records only, the 
length of the record just read is automatically inserted 
into the DCBLRECL field by the check routine if BUF0FF=( L ) 

is not specified in the data control block. 
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READ—REAB^AJg LPC K..lQE F .SE T . RE AD OF. KEYED...B J A M .JA TA- 9E JJ JSIHB.B. SA MI 

The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. The data 
set is a BDAM data set and its record format is unblocked 
variable-length spanned records. BFTEK=R must be specified in 
the data control block. Control may be returned to the problem 
program before the block is retrieved. The input operation must 
be tested for completion using a CHECK macro instruction. A 
data event control block/ shown in Appendix A/ "Status 
Information Following an Input/Output Operation" on page 190, is 
constructed as part of the macro expansion. 

The standard form of the READ macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


Isymbol] 

READ 

dect? name 



.SF 



, deb ..address 



»area.address 


rije. c b- name —symbol 

The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 


SF 

specifies normal/ sequential/ forward retrieval. 

deb address —A-Type Address or (2-12) 

The deb address operand specifies the address of the data 
control block for the opened BDAM data set to be read. 

area address —A-Type Address or (2-12) 

The area address operand specifies the address of the area 
in which the record is placed. 

When a spanned BDAM data set is created with keys/ only the 
first segment of a record has a key; successive segments do not. 
When a spanned record is retrieved by the READ macro 
instruction/ the system places a segment in a designated area 
addressed by the area address operand. The problem program must 
assemble all the segments into a logical record. Because only 
the first segment has a key/ the successive segments are read 
into the designated area offset by key length to ensure that the 
block-descriptor word and the segment-descriptor word are always 
in their same relative positions. 
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BEADzrL I S T- F O RM 


The list form of the READ macro instruction is used to construct 
a data management parameter list in the form of a data event 
control block (DECB). For a description of the various fields 
of the DECB for each access method, see Appendix A, “Status 
Information Following an Input/Output Operation 11 on page 190. 

The description of the standard form of the READ macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method, and the meaning of f S f 
when coded for the area address, length, and key address 
operands. For each access method, I S 1 can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the list form only. 


The list form of the READ macro is written? 


tsymbolI 


READ 


dec b. ..na me. 

»±yEg 

i Cds.b-Q-d.drje.ss 3 
f CQreQ-^a d dressl , S f 3 
f IIsnath I , s l 3 
# CRey—0-ddr.e.ssl , S 1 3 
f I,bl.Q.sk,..Qddr,ess3 
f C n ex i.--Qdd.r e ss 3 
,MF=L 


derb-pame—symbol 

type —Code one of the types shown in the standard form 

deb address —A-Type Address 

arjea-address—A-Type Address or f S f 

length —symbol, decimal digit, absexp, or *S f 

kev address —A-Type Address or f S f 

bl^ck-Qd dres S—A-Type Address 

D ext .... ad dr. ess —A-Type Address 

MF=L—Coded as shown 

The MF=L operand specifies that the READ macro instruction 
is used to create a data event control block that can be 
referenced by an execute-form instruction. 
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BMP—J^ECUIEJL QBM 


A remote data management parameter list (data event control 
block) is used in, and can be modified by, the execute form of 
the READ macro instruction. The data event control block can be 
generated by the list form of either a READ or WRITE macro 
instruction. 

The description of the standard form of the READ macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
| the operands used for each access method and the meaning of 1 S* 

when coded for the area address, length, and key address 
operands. For each access method, 8 S* can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the execute form only. 

The execute form of the READ macro is written * 


[symbol 3 

1 



II 




>Ci£na±hrsN (tst ^ 


H 

, E MjastL-adri dsss 3 
»Cnext address? 

*MF=E 


-RX~Type Address or (2-12) 
type -—Code one of the types shown in the standard form 



-RX-Type Address or (2-12) 

—RX-Type Address, (2-12), or *3* 
length -symbol * decimal digit, absexp, (2-12), or f S® 
k^Y^jidJM^-™RX-Type Address, (2-12), or s S l 
-RX-Type Address, or (2-12) 

-RX-Type Address or (2-12) 



HF-E—-Coded as shown 

The MF=E operand specifies that the execute form of the 
READ macro instruction is used, and that an existing data 
event control block (specified in the deeb address operand) 
is used by the access method. 
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RELEX=BELEASE^EXCI U $ IVE ^MJBSLAMMl ^ 

The RELEX macro instruction causes release of a dat»* block from \ y 

exclusive control. The block must have been requested in an 
earlier READ macro instruction that specified either DIX or DKX. 

Notes A WRITE macro instruction that specifies either DIX or 
DKX can also be used to release exclusive control. 

The RELEX macro is written! 


[symbol 3 

RELEX 

D 

»deb.address 





D 

specifies direct access. 

djg.b,.addr.esg—RX~Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for a BDAM data set opened for processing. 

The operand must specify the same data control block 
designated in the associated READ macro instruction. 

block address —RX-Type Address, (2-12), or (0) 

The block address operand specifies the address of the area 
containing the relative block address, relative track 
address, or actual device address of the data block being 
released. The operand must specify the same area 
designated in the block address operand of the associated 
READ macro instruction. 


COMPLETION CODES 

When the system returns control to the problem program, the 
low-order byte of register 15 contains one of the following 
return codes! the three high-order bytes of register 15 are set 
to 0. 

Return 

Code (15) Meaning 


00 (X'OO 1 ) Operation completed successfully. 

04 (X®04®) The specified data block was not in the 
exclusive control list. 


08 (X f 08 f ) The relative track address, relative 

block address, or actual device address 
was not within the data set. 


if x 
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ffiLaE= R ELEA8.E^A>t. . IN PUI -5UEFERJQI S AM . AN D. QS AM ..-IN PU T! 

The RELSE macro instruction causes immediate release of the 
current input buffer. The next GET macro instruction retrieves 
the first record from the next input buffer. For 
variable-length spanned records (QSAM), the input data set is 
spaced to the next segment that starts a logical record in a 
subsequent block. Thus, one or more blocks of data or records 
may be skipped. The RELSE macro instruction is ignored if a 
buffer has just been completed or released, if the records are 
unblocked, or if issued for a SYSIN data set. 

The RELSE macro is written* 


Es ymbol 3 


RELSE 


dfib-addcass 


dfih-a. d dCJB.SS—RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened input data set. 
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SEIL=gEI. 

The SETL macro instruction causes the control program to start f x \ 

processing the next input request at the specified record or 

device address. Sequential retrieval of records using the GET 

macro instruction continues from that point until the end of the 

data set is encountered or a CLOSE or ESETL macro instruction is 

issued. An ESETL macro instruction must be issued between SETL 

macro instructions that specify the same data set. 

The SETL macro instruction can specify that retrieval is to 
start at the beginning of the data set* at a specific address on 
the device* at a specific record, or at the first record of a 
specific class of records. For additional information on SETL 
functions* see M ta.* 

The SETL macro is written: 



ckLb ^addr:.ess "-"RX-Type Address* (2-12)* or (1) 

The deb address operand specifies the address of the data 
control block opened for the indexed sequential data set 
being processed. 

The following operands are coded as shown* they specify the 
starting point and type of retrieval: 

K 

specifies that the next input operation is to begin at the 
record containing the key specified in the lower-limit 
address operand. 

KC 

specifies that the next input operation is to begin at the 
first record of the key class specified in the lower-limit 
address operand. If the first record of the specified key 
class has been deleted* retrieval begins at the next 
nondeleted record regardless of key class. 

H 

used with either K or KD* specifies that* if the key in the 
lowei—limit address operand is not in the data set* 
retrieval begins at the next higher key. The character H 
cannot be coded with the key class operands CKC and KGD). 


specifies that the next input operation is to begin at the 
record containing the key specified in the lower-limit 
address operand* but only the data portion of the record is 
retrieved. This operand is valid only for unblocked 
records. 


KCO 

specifies that the next input operation is to begin at the 
first record of the key class specified in the lower-limit 
address operand* but only the data portion of the record is 
retrieved. This operand is valid only for unblocked 
records. 


specifies that the next input operation is to begin with 
the record at the actual device address specified in the 
lower-limit address operand. 
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ZD 

specifies that the next input operation is to begin with 
the record at the actual device address specified in the 
lowei—limit address operand, but only the data portion of 
the record is retrieved. This operand is valid only for 
unblocked records. 

B 

specifies that the next input operation is to begin with 
the first record in the data set. 

BD 

specifies that the next input operation is to begin with 
the first record in the data set, but only the data portion 
is retrieved. This operand is valid only for unblocked 
records. 

1-Q W e.r .JLj jnii^addr.ess —RX-Type Address, (2-12), or (0) 

The lowei—limit address operand specifies the address of 
the area containing the key, key class, or actual device 
address that designates the starting point for the next 
input operation. If I or ID has been specified, this area 
must contain the actual device address (in the form 
MBBCCHHR) of a prime data record; the other types require 
that the key or key class be contained in this area. 


SETL EXIT 


The error analysis (SYNAD) routine is given control if the 
operation could not be completed successfully. The exception 
condition code and general registers are set as shown in 
Appendix A, "Status Information Following an Input/Output 
Operation” on page 190. If the SETL macro instruction is not 
reissued, retrieval starts at the beginning of the data set. 
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For the IBM 3800 Printing Subsystem, the SETPRT macro 
instruction is used to initially set or dynamically change the 
printer control information. The following control information 
may be changed with the SETPRT macro: 

• Bursting of forms (BURST parameter) 

• Character arrangements to be used (CHARS parameter) 

• The number of copies (COPIES parameter) 

• The starting copy number (COPYNR parameter) 

• Vertical formatting of a page (FCB parameter) 

• Flashing of forms (FLASH parameter) 

• Initializing the printer control information (INIT 
parameter) 

• Modification of copy (MODIFY parameter) 

• Blocking or unblocking of data checks (OPTCD parameter) 

In addition to changing the control information, you can also do 
the following: 

• Create your own 3800 load modules in a library to replace 
the use of SYS1.IMAGELIB (LIBDCB parameter). 

• SETPRT error messages that are sent to the printer can also 
be passed back to the invoking program (MSGAREA parameter). 

• Print or suppress error messages on the printer (PRTMSG 
parameter). 

• Control the scheduling of SYSOUT segment printing (DISP 
parameter). 

To use all-points addressability when operating the 3800 Model 
3, PSF libraries (for example, SYS1.FONTLIB, SYS1.FDEFLIB, 

SYS1.PDEFLIB) will be used instead of SYS1.IMAGELIB. As an 
alternative, the library with the LIBDCB parameter may be used. 

For additional information on how to use the SETPRT macro 
instruction with the 3800 Model 3, see IBM 3800 Printing 

For printers other than the 3800 Printing Subsystem, the SETPRT 
macro instruction is used to control the following: 

• Selection and verification of UCS and FCB images (UCS and 
FCB parameters) 

• Blocking or unblocking of data checks (OPTCD parameter) 

• Printing lowercase EBCDIC characters in uppercase (OPTCD and 
UCS parameters) 

For printers that have a universal character set (UCS) buffer or 
a forms control buffer (FCB), the SETPRT macro instruction is 
used to fetch UCS and FCB images from the image library 
(SYS1.IMAGELIB) and load them into their respective buffers. 

Note that FCB images for the 3203/3211 and 3800 are not 
compatible. The universal character sets for the 1403/3203 and 
the character arrangement table modules for the 3800 are also 
not compatible. 

IBM-supplied UCS images, FCB images, and character arrangement 
table modules are included in SYS1.IMAGELIB at system generation 
time. For impact printers, usei—defined character sets and 
forms control images can be added to SYS1.IMAGELIB as described 
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in System-Pa t a. A dministration. For the 3800, user-defined 
character arrangement table modules# copy modification modules# 
FCB modules# and graphic character modification modules (that 
modify the character set) and library character sets can be 
added to SYS1.IMAGELIB as described in Utilities . The EXLST 
parameter of the DCB macro instruction can be used to specify 
the address of an FCB module in storage. 

For the 1403 and 3211# if the specified UCS or FCB image cannot 
be found in SYS1.IMAGELIB or the DCB exit list# the system 
operator is asked to specify a replacement name and can 
therefore override an error made by the program. For the 3800# 
the SETPRT routines never ask the operator to replace or 
respecify a parameter from the SETPRT macro# and SETPRT 
processing is terminated. 

When BSAM is being used# all write operations must be checked 
for completion before the SETPRT macro instruction is issued# 
any incomplete write operations are purged. Issuing the SETPRT 
macro instruction for a device other than an on-line UCS printer 
or the 3800 Printing Subsystem results in an error return code. 

A permanent error on a SETPRT macro will cause one or both of 
the first two bits of the DCBIFLGS field to be set on# 
indicating an error. A cancel key or system-restart-required 
paper jam will cause the lost data indicator bit# DCBIFLDT# to 
be set in the DCBIFLGS field. Before reissuing a SETPRT macro# 
these bits must be reset to zero. 

The standard form of the SETPRT macro instruction is written as 
follows (the list and execute forms are shown following the 

standard form): 


E symbol 1 


SETPRT 


dsJbaddc 

[,BURST=£MIYJ] 

[»CHARS=£name I ACaddress)SRC register )}} 
U {name j A t astdcsss j 1 

E , CQPIES- nuiwber I 
[,COPYNR= number l 

E , DISP=ISCHEDULE|NOSCHEDULE I EXTERNAL 1 
[, FCB={jLmg&ld i A t address) IR C r- Q9 i.st.er )} 

£ 1£ imaaeid i A (address) \ 

Rt .register )}»£VtA> )}1 
E.FLASH=C name I 

£ CE name l,c ount )}) 

E,INIT=£NiY}J 
E,LIBDCB= dcbaddre ss) 

E,MODIFY=C{ name 1 At address ) I RC register )} 
CIt name I At address )I 
)}»trc)}3 


E,MSGAREA= address l 
E t OPTCD-CBiU} 

£(£B|U},CFiU})}] 

E,PRTMSG=EN|Y] 

E,REXMIT=£NIY}I 

E,UCS=££S£} 

f(g££,£F|F,V|V})}J 


dcbaddr —A-Type Address or (2-12) 

The dcbaddr operand specifies the address of the data 
control block for the data set to be printed; the data set 
must be opened for output before the SETPRT macro 
instruction is issued. 

BURST=£NIY} 

The BURST operand specifies whether the paper output is to 
be burst. BURST=Y indicates that the printed output is to 
be burst into separate sheets and stacked. BURST=N 
indicates that the printed output is to go into the 
continuous forms stacker. If BURST is not specified, the 
SETPRT routine assumes BURST=N. If bursting is requested. 
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the printed output is threaded into the burstei—trimmei— 
stacker. Otherwise, the printed output is threaded into the 
continuous forms stacker. The operand causes a message to 
be printed at the system console telling the operator to 
thread the paper again if needed. This operand is valid 
for the 3800 printer only. 

CHARS=C name IAt address IR( register 

{({ name IA( address )IRC register )>.♦.. )} 

The CHARS operand specifies one to four character 
arrangement tables to be used when printing a data set. 

This operand is valid for the 3800 printer only. 

name 

is the last four characters of the 8-byte member name 
for a character arrangement table module. For 
information on the modules available, see IBM 3800 
Px.intin.9_.SMbay^ 

ACad d cass) 

specifies an in-storage address of the user-provided 
character arrangement table module. For information 
on the format of the module, see Utilities . 

Rtnaaislec) 

specifies the register that contains an in-storage 
address of the usei—provided character arrangement 
table module. For information on the format of the 
module, see Mili-ties♦ 

COPIES=nymk£E 

specifies the total number of copies of each page of the 
data set that is to be printed Cfrom 1 to 255) before going 
to the next page. If the COPIES operand is omitted, one 
copy of each page is printed. This operand is valid for 
the 3800 printer only. 

DISP={SCHEDULE|NOSCHEDULE I EXTERNAL ! 

DISP allows you to control how JES disposes of the data 
that is created before the SETPRT request. This parameter 
is valid only for SYS0UT data sets and is ignored for the 
direct user who issues SETPRT. You may abbreviate the 
parameters to S, N, and E, respectively. This operand is 
valid for the 3800 printer only. 

SCHEDULE 

specifies that JES is to schedule the previous data 
for printing immediately. 

NOSCHEDULE 

specifies that JES is to separate the data into a 
separate JES data set and to schedule the previous 
data set for printing after the job terminates. 

EXTERNAL 

specifies that the schedule of the data set for 
printing is determined by the JCL parameter 
FREE=CLOSE. FREE=CLQSE is the same as specifying 
DISP = SCHEDULE. The absence of FREE=CLOSE in the JCL 
is the same as coding DISP=NOSCHEDULE on the SETPRT 
macro. EXTERNAL is the default. 


FCB={imaasi d I a C a dd n & SS) I Re register )} 

{({ imageid lA( address )IR( register )}.{VIA3)3 
The FCB operand specifies that the forms control buffer 
(FCB) is to be selected from the image library. When the 
FCB operand is specified, the OPTCD operand can also be 
specified. The possible specifications are: 

imaaeid 

specifies the forms control image to be loaded. A # 

forms control image is identified by a 1- to 
4-character name. IBM-supplied 3211 format images are 
identified by imageid value of STD1 and STD2; 
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user-designed forms control images are defined by the 
installation. For descriptions of the standard forms 
control images for the 3203 and 3211, see System-Data 
Administration . For more information about 3800 FCB 
modules, see Uliliilaa• 

AC address ) 

The address subparameter specifies an in-storage 
address of the usei—supplied forms control buffer 
module to be used. (For information on the format of 
the module, see Utilities .) This subparameter is 
valid for the 3800 Model 1 printer only. 

Rer egi s ter .) 

The register subparameter specifies the register that 
contains an in-storage address of the usei—provided 
forms control buffer module to be used when printing a 
data set. (For information on the format of the 
module, see Utilities .) This subparameter is valid 
for the 3800 Model 1 printer only. 

V or VERIFY 

requests that the forms control image be displayed on 
the printer for visual verification. This operand 
allows forms verification and alignment using the HTOR 
macro instruction. 

A or ALIGN 

allows forms alignment using the HTOR macro 
instruction. This subparameter will be ignored if 
specified for the 3800 printer. 

FLA$H=Cname> 

U Enamel*count)! 

The FLASH operand identifies the forms overlay frame to be 
used. Unless REXMIT=Y is coded and the forms overlay frame 
is still in use from the previous SETPRT macro issuance, a 
message tells the operator to insert this forms overlay 
frame into the printer. This operand also enables you to 
specify the number of copies on which the overlay is to be 
printed (flashed). If this operand is omitted, flashing 
ceases. This operand is valid for the 3800 printer only. 

name 

is the 1- to 4-character name of the forms overlay 
frame. 


&. au n t 

indicates the total number (0 to 255) of copies of 
each page of the data set on which the overlay will be 
printed, beginning with the first copy. The number of 
copies printed will not be greater than the number of 
copies specified by the COPIES operand. No copies 
will be flashed if the count of zero is specified. If 
a nonzero count is specified and the name of the forms 
overlay frame is omitted, the operator will not be 
requested to insert a frame. Whatever frame is 
inserted will be used. 


INIT=CNIY} 

INIT=Y will initialize the control information in the 3800 
printer with a folded character arrangement table, the 
10-pitch Gothic character set (12 pitch for the 3800 Model 
3), and a six lines per inch FCB corresponding to the forms 
size in the printer. COPIES and COPYNR will be initialized 
to 1, FLASH and MODIFY will be initialized to none, and 
BURST will be initialized to N (continuous forms). For 
INIT=N, all control information for the 3800 printer will 
remain unchanged. Any parameters included on the same 
macro statement as the INIT operand will be processed after 
printer initialization has been completed. This operand is 
valid for the 3800 printer only. 
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LIBDCB"dc baddress —A-Tvpe Address or C2-12) 

dcbaddress is the address of an authorized user library DCB 
that has been opened, and that you want to use instead of /f 

SYS1.IMAGELIB. If LIBDCB is not specified, SYS1.IMAGELIB ^ 

is used. This operand is valid with 3800 Model 1 only. 

Note* This is for the user with direct control of the 3800 
Model 1. 

MQDlFY=CimiiLe;i A (add-csss) i 
CC Cnamef ACadring^si 

The MODIFY operand identifies the copy modification module 
and an associated character arrangement table module to be 
used when modifying the data to be printed. This operand 
is valid for the 3800 Model 1 printer only. 


&am& 

A 1- to 4-character name of the copy modification 
module stored in SYS1.IMAGELIB. These one to four 
characters are the last characters of the 8-byte 
member name of a copy modification module in 
SYS1.IMAGELIB. 


ACaddEjg&sS 

The address subparameter specifies an in-storage 
address of the user—supplied copy modification module. 
This subparameter is valid for the 3800 Model 1 
printer only. For information on the format of the 
module, see lLt i .Ii. t i. g .5. 

The register subparameter specifies a register that 
contains an in-storage address of the user-provided 
copy modification module. This subparameter is valid 
for the 3800 Model 1 printer only. For information on 
the format of the module, see Utilities . 


specifies the table reference character used to select 
one of the character arrangement table modules to be 
used for the copy modification text. The values of 0, 
1, 2, and 3 correspond to the order in which the 
module names have been specified in the CHARS operand. 
If trc is not included, the first character 
arrangement table module CO) is assumed. 


MSGAREA= addres s—A-Tvpe Address or (2-12) 

address is the address of the message feedback area. This 
area is used to transfer message text between the SETPRT 
macro and the caller. You must allow at least 80 bytes for 
the message text plus 10 bytes for prefix information or % 
total length of at least 95 bytes. The message is 
truncated if it does not fit into the area. This operand 
is valid with 3800 only. The following shows the layout of 
the message area: 


bytes 0-1: 
bytes 2-5: 
bytes 6-7: 
bytes 8-9: 
bytes 10-variable ? 


total length 
reserved 
text length 
reserved 
message text 


0PTCD=£B!UJ 

U£BlUJ,tF|U})5 

The DPTCD operand specifies whether printer data checks are 
blocked or unblocked and if the printer is to operate in 
fold or normal mode. The possible specifications are* 

B 

specifies that printer data checks are blocked; this 
option updates the DCB0PTCD field of the data control /# 

block. 4 
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U 

specifies that printer data checks are unblocked; this 
option updates the DCBOPTCD field of the data control 
block. 

F or FOLD 

specifies that printing is in fold mode. This 
subparameter is ignored if specified for the 1403 or 
3800 printer. For 1403 fold mode, use fold option 
under the UCS operand. 

U or UNFOLD 

specifies that printing is in normal mode; this 
operand causes fold mode to revert to normal mode. 

This subparameter will be ignored if specified for the 
1403 or 3800 printer. 

PRTMSG={NlY} 

PRTMSG allows printer error messages to be printed for the 
programmer on the 3800. This operand is valid with 3800 
only. 

N 

specifies not to print error messages on the 3800. 


specifies to print error messages on the 3800. Y is 
the default. 

REXMIT=CNIY} 

The specification of REXMIT=Y allows modification of the 
starting copy number (COPYNR), the number of copies of the 
pages in a data set to be printed (COPIES), the forms 
overlay frame to be used (FLASH), and the number of copies 
to be printed (FLASH) without changing the other control 
information already set up in the printer. The SETPRT SVC 
will ignore all other parameters in the parameter list. 

UCSsCcscl 

U£S£,{F|F,V|V})} 

The UCS operand specifies that the UCS buffer is to be 
loaded from the image library. When the UCS operand is 
specified, the FOB and OPTCD operands can also be 
specified. This operand will be ignored if specified for 
the 3800 printer. The possible specifications are: 

esc (character set code) 

The esc operand specifies the character set selected. 

A character set is identified by a 1~ to 4-character 
code. Codes for standard IBM character sets are as 
follows: 

1403 or 3203 Printer: AN, HN, PCAN, PCHN, PN, QN, QNC, 
RN, SN, TN, XN, and YN 

3211 Printer: All, Hll, Gil, Pll, and Til 

For descriptions of the standard IBM character sets, 
see \ codes for user-designed 

character sets are defined by the installation. For 
information on adding user-defined entries to an image 
table, see SyalfinrData-Admi,. 

F or FOLD 

specifies that the character set image selected is to 
be in fold mode. The fold mode translates the EBCDIC 
code for lowercase characters to the EBCDIC cod© for 
the corresponding uppercase characters, 

V or VERIFY 

requests that the character set image be displayed on 
the printer for visual verification. 
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RETURN CODES 


After the SETPRT macro instruction is executed, a return code is 
placed in register 15? and control is returned to the 
instruction following the SETPRT macro instruction. The 
illustration below shows how the four bytes of register 15 are 
used for a specific printer. 


Byte 

0 

1 

2 

3 



3800 Code 




Unused 

Other than 
FCB 

FCB Code 

UCS Code 


Bit 0 78 15 16 23 24 31 


The return codes in the figures that follow are in hexadecimal. 

• Return codes 0 through 14 apply to a specific printer. 

• Return codes 18 through 24 apply to all printers. 

• Return codes 28 through 50 apply to the 3800 printer only. 

Figure 1 shows the hexadecimal return codes 00 through 14 for 
specific printers. An 9 XX 9 in the columns labeled *3800 Code 
Other than FCB 9 or 9 FCB Code? 1 means that a nonzero code may be 
in that byte. 


3800 Code 
Other than 
FCB 

(Byte 1! 

FCB Code 

(Byte 2) 

UCS Code 
(Byte 3) 

Meaning 

00 

00 

00 

Successful completion. 

00 

XX 

°4 

The operator canceled the UCS request for the 
following reason: 

® The UCS image could not be found in 

SYS1.IMAGELXB. 

00 

04 

XX 

For non-3800 printers, the operator canceled 
the FCB load operation for one of the 
following reasons: 

• The form could not be aligned to match 
the buffer. 

• The FCB module could not be found in 

SYS1.IMAGELIB or the user f s DCB exit 
list. 

For a 3800, the specified FCB module could 
not be found in SYS1.IMAGELIB, a user 
library, or the DCB exit list, and SETPRT 
processing was terminated. 


Figure 1 (Part 1 of 3). SETPRT Return Codes for Specific Printers 


if a 
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3800 Code 
Other than 
FCB 

(Byte 1) 

FCB Code 
(Byte 2) 

UCS Code 
(Byte 3) 

Meaning 

04 

00 

00 

The 3800 SETPRT processing was suspended for 

one of the following reasons: 

• A character arrangement table module 
could not be found in SYS1.IMAGELIB or a 
user library. 

• A copy modification module could not be 
found in SYS1.IMAGELIB or a user library. 

• A graphic character modification module 
(required by a character arrangement 
table module) could not be found in 

SYS1.IMAGELIB or a user library. 

• A library character set module could not 
be found in SYS1.IMAGELIB or a user 
library. 

Register 0 contains a reason code identifying 

which of the above conditions occurred. 

For an explanation, see Figure 3 on page 155. 

00 

XX 

08 

A permanent I/O error was detected when the 

BLDL macro instruction was issued to locate a 
UCS image in SYS1.IMAGELIB. 

00 

08 

XX 

A permanent 1/0 error was detected when the 

BLDL macro instruction was issued to locate 
an FCB module in SYS1.IMAGELIB or a user 
library. 

08 

00 

00 

A permanent I/O error was detected when the 

BLDL macro instruction was issued to locate 
one of the following modules in SYS1.IMAGELIB 
or a user library. 

• A character arrangement table module 

• A copy modification module 

• A graphic character modification module 

• A library character set module 

Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation, see Figure 3 on page 155. 

00 

XX 

OC 

A permanent I/O error was detected while 
loading the printer's UCS buffer. 

00 

oc 

XX 

A permanent I/O error was detected during 
forms positioning or while loading the 
printer's FCB buffer. 

Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation, see Figure 3 on page 155. 


Figure 1 (Part 2 of 3). SETPRT Return Codes for Specific Printers 
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3800 Code 
Other than 
FCB 

(Byte 1) 

FCB Code 
(Byte 2) 

UCS Code 
(Byte 3) 

Meaning 

oc 

00 

00 

A permanent I/O error was detected while 
loading one of the following* 

• Character arrangement table 

• Copy modification record 

• Starting copy number 

• Graphic character modification record 

• Forms overlay sequence control record 
(copy counts and flash counts) 

• Hritable character generation module 
(WCGM) 

• Library character set (3800 only) 

Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation, see Figure 3 on page 155. 

00 

XX 

10 

A permanent 1/0 error was detected when an 
attempt was made to display the character set 
image on the printer for visual verification. 

00 

10 

XX 

A permanent I/O error was detected when an 
attempt was made to display the forms control 
image on the printer for visual verification. 

00 

XX 

14 

The operator canceled the UCS request because 
an improper character set image was displayed 
for visual verification. 

00 

14 

XX 

The operator canceled the FCB request because 
an improper forms control image was displayed 
for visual verification. 


Figure 1 (Part 3 of 3). SETPRT Return Codes for Specific Printers 


The illustration below shows how the four bytes of register 15 
are used for all printers. 


Byte 0 12 3 


Unused 

Unused 

Unused 

General 




Code 


Bit 0 78 15 16 23 24 31 


Figure 2 shows the hexadecimal return codes 18 through 24 for 
all printers. 
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Return 

Code 
(Byte 3) 

Meaning 

18 

No operation was performed for one of the 
following reasons: 

• The data control block was not open 

• The data control block was not valid for a 

sequential data set. 

• The SETPRT parameter list was not valid 

• The output device was not a UCS or 3800 

printer 

1C 

No operation was performed because an 
uncorrectable error occurred in a previously 
initiated output operation. The error analysis 
(SYNAD) routine is entered when the next PUT or 
CHECK macro instruction is issued. 

No operation was performed because an 
uncorrectable error occurred when the block data 
check or the reset block data check command was 
issued by SETPRT. 

For a 3800, message IEC173I will indicate which 
of the above errors has occurred. 

Register 0 contains a reason code identifying 
whether or not data was lost. For an 
explanation, see Figure 4 on page 155. 

20 

Not enough space has been provided for the 

SYS1.IMAGELIB or a user library control blocks. 

24 

SYSl.IMAGELIB (or, for the 3800, a user library) 
cannot be opened to load the specified module. 

28 

The operator canceled the forms overlay request. 

2C 

The operator canceled the paper threading 
request. 

30 

There are more writable character generation 
modules (WCGMs) requested than there are 
writable buffers installed on the printer. 

34 

There was an invalid table reference character 
for copy modification. 

38 

An error occurred when attempting to execute the 
initialize printer command. 

3C 

Bursting was requested but the 

Burstei—Trimmer-Stacker feature is not installed 
on the printer. 

40 

A permanent I/O error occurred while executing a 
sense, final select character arrangement table 
command, or display status code. 

44 

The translate table character arrangement table 
entry references a character set that is not in 
the image library. 


Figure 2 (Part 1 of 2). SETPRT Return Codes for All Printers 
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Return 

Code 
(Byte 3) 

Meaning 

48 

Data was lost because of one of the following 
(3800 only): 


• 

3800 system restart after a paper jam 


• 

Cancel key 


• 

Lost resources after paper jam 

4C 

A load check was detected while loading one of 
the following (3800 only): 


• 

Forms control buffer (FCB) 


• 

Character arrangement table (CAT) 


• 

Graphic arrangement table (GCM) 


• 

Copy modification record 


• 

Writable character generation module (WCGM) 


• 

Library character set (LCS) 


Register 0 contains a reason code identifying 
which of the above conditions occurred. 


For 

an explanation, see Figure 3 on page 155. 

50 

When a SETPRT was issued to a SYSOUT data set, 
there was a failure in one of the following 
(3800 only): 


• 

The subsystem interface (SSI) for OPEN or 
CLOSE 


• 

Data set segmentation 



Queue manager issuing I/O to read the JFCB 
and/or the JFCBE 

. 

• 

ENQ failure 


• 

More than one DCB is open for the SYSOUT 
data set 


Figure 2 (Part 2 of 2). SETPRT Return Codes for All Printers 
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IBM 3800 MODELS 1 AND 3 

These reason codes, returned in register 0, for the 3800 Models 
1 and 3 printers are in addition to completion codes 04, 08, 0C, 
and 4C returned in register 15. 

The following illustration shows the contents of register 0, 
which includes the 6CM ID, the CAT ID, and the reason code. 


Byte 0 12 3 


Unused 

GCM ID 

CAT ID 

Reason 




Code 


Bit 0 78 15 16 23 24 31 


Figure 3 shows the hexadecimal reason codes for the IBM 3800 
Model 1 and the IBM 3800 Model 3 in compatibility mode. 


GCM ID 
{Byte 1) 

CAT ID 
{Byte 2) 

Reason Code 
(Byte 31 

Meaning 

00 

01-04 

04 

Character arrangement 
table module/record 

00 

00 

08 

Copy modification 
module/record 

00 

00 

OC 

Starting copy number 

01-04 

01-04 

10 

Graphic character 
modification 
module/record 

00 

00 

14 

Forms overlay sequence 
control record 

00 

00 

18 

Library character set 

00 

00 

1C 

Hritable character 
generation module CHCGM) 

00 

00 

20 

Forms control buffer 
module 


Figure 3. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(GCM ID and CAT ID) 


Figure 4 shows the reason codes in addition to return code 1C 
returned in register 15. The reason code is placed in byte 3 of 
register 0. Bytes 0 through 2 are reserved. 


Reason Code 
(Byte 3) 

Meaning 

00 

Indicates no data lost. 

04 

Indicates data has been lost. 


Figure 4. Reason Codes for All Printers (Bytes 0 through 2 
Reserved) 
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Figure 5 on page 156 shows the reason codes in addition to 
return code 48 returned in register 15. The reason code is 
placed in byte 3 of register 0. Bytes 0 through 2 are reserved. 


Reason Code 
(Byte 3) 

Meaning 

04 

A paper jam caused a restart. A possible lost 
data condition was detected. 

08 

The cancel key was pressed. 

OC 

Resources were lost after a paper jam. 



t, j 


Figure 5. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(Bytes 0 through 2 Reserved) 


Figure 6 shows the reason codes in addition to return code 50 
returned in register 15. The reason code is placed in byte 3 of 
register 0. Bytes 0 through 2 are reserved. 


Reason Code 
(Byte 3) 

Meaning 

04 

An invalid SETPRT request for a SYSOUT data 
segment was specified. An in-storage address 
was used for a copymod, character arrangement 
table, FCB, or user library DCB. Only 3800 
load module IDs in SYS1.IMAGEL IB are allowed 
for SYSOUT setup for 3800. 


If Direct Attach (a directly allocated 3800 

Model 3 or Model 8 printer) is active, data 
management treats the device specified by the 
UNIT parameter as a SYSOUT data set. 

08 

During SETPRT processing for a SYSOUT data 
segment, an error was detected while 
attempting to read a JFCB or JFCBE control 
block from SNA 

OC 

During SETPRT processing for a SYSOUT data 
segment, an error was detected while invoking 
the CLOSE subsystem interface (SSI) for the 
previous data segment 

10 

During SETPRT processing for a SYSOUT data 
segment, an error was detected while invoking 
the OPEN subsystem interface (SSI) for the new 
data segment being created 

14 

During SETPRT processing for a SYSOUT data 
segment, an error was detected while the 
scheduler spool file allocation routine was 
segmenting the data set 

18 

An ENQ macro failed. The ENQ was issued by 
SETPRT processing. 

1C 

More than one DCB is open for the SYSOUT data 
set. 


Figure 6. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(Bytes 0 through 2 Reserved) 
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SETPRT— LIST FORM 


The list form of the SETPRT macro instruction is used to 
construct a data management parameter list. 

The description of the standard form of the SETPRT macro 
instruction provides the explanation of the function of each 
operand. The format description below indicates the optional 
and required operands for the list form only. The dcbaddr 
parameter must appear in the list or execute form of the SETPRT 
macro. 

The list form of the SETPRT macro instruction is written as 
follows! 


[ symbol 3 


SETPRT 


[ dcbaddr ] 

[,BURST={NIYJ] 

[, CHARS={[name} 

[,COPIES= number ] 

[,COPYNR= number l 

[,DISP=[SCHEDULE|NOSCHEDULE I EXTERNAL ] 

[, FCB=CimaaeiiJ} 

{[ imageid »{VlAT)}] 

[ t FLASH={nam£J 

C ([ jmms ]») J1 
[,INIT=CN|YJ] 

[,LIBDCB= dcbaddress ] 

[,MODIFY=t name T 

C( name t trc )3] 
[,MSGAREA= address l 
[,0PTCD={B|U3 

U{B|U>,CF|U3)>] 
[,PRTMSG=[NlYJ 
[,REXMIT=£MIY}1 
[»UCS=t£S£} 

C(£S£,CFIF,V|VJ)J] 

f MF=L 


dcbaddr —A-Type Address 
BURST=CMIY3 

is coded as shown in the standard form of the macro 
instruction. 

CHARS={ name 3 

{ (p.arae> • • • )J 

is coded as shown in the standard form of the macro 
instruction, except for the Al address ) and RC register ) 
parameters, which cannot be specified. 

COPlES=nmn ha c 

is coded as shown in the standard form of the macro 
instruction. 

COPYNR= number 

is coded as shown in the standard form of the macro 
instruction. 

DISP=tSCHEDULE INOSCHEDULE1 EXTERNAL! 

is coded as shown in the standard form of the macro 
instruction. 

FCB={j m ag ei d3 

{timaaeid>{VlA3)> 

is coded as shown in the standard form of the macro 
instruction, except for the A( address ) and R( register ) 
parameters, which cannot be specified. 
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FLASH=Cnam^J 

{(Cnaiiie2,iLSilEl±5J 

is coded as shown in the standard form of the macro 

instruction, 

INIT-CN1YJ 

is coded as shown in the standard form of the macro 
instruction. 


LIBDCB«d£Jkaddn&^“A-Type Address or C2-12) 

is coded as shown in the standard form of the macro 
instruction. 

MODXFV=C name l 

is coded as shown in the standard form of the macro 
instruction, except for the A( address I and R( register ) 
parameters, which cannot be specified. 


MSGAREA^ a ddr ess —A~Tvpe Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 

0PTCD={BIU} 

£(£BIUJ # CF|UJ)J 

is coded as shown in the standard form of the macro 
instruction. 

PRTHSG=CNIYJ 

is coded as shown in the standard form of the macro 
instruction. 

REXMIT={NIYJ 

is coded as shown in the standard form of the macro 
instruction. 


UCS=Ccscl 

n£J££*CF|F,V|V})} 


is coded as shown 
instruction. 


in the standard form of the macro 


"X 

l;‘ I 


specifies that the list form of the macro instruction is 
used to create a parameter list that can be referenced by 
an execute form of the SETPRT macro instruction. 
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S ET PRT -r EXEC U TE F O RM 


A remote data management parameter list is referred to, and can 
be modified by, the execute form of the SETPRT macro 
instruction. 

The description of the standard form of the SETPRT macro 
instruction provides the explanation of the function of each 
operand. The format description below indicates the optional 
and required operands for the execute form only. The dcbaddr 
parameter must be specified in the list or execute form of the 
SETPRT macro. 

The execute form of the SETPRT macro instruction is written as 
follows! 


[symbol! 


SETPRT| [dcbaddr! 

[,BURST=£M|YI*H 

[,CHARS={name IA( address )IRt register )1 

C(Cname IA(a ddrsss)IRCragister)!>««♦)1 

£*11 

[,COPIES 5 { number 1*11 
t,COPYNR-t number |*}1 
[,DISP=[SCHEDULE|NOSCHEDULE I EXTERNAL ! 

[,FCB={ imageid IAt address ) >R( register )1 

{(t imageid IAC address)IR( register )> 

{V|A1)>[*}1 
[,FLASH={namel 

C([ name !> count )l 

{*11 

[,INIT={N|Y11 

[,LlBDCB=dcbaddrass! 

[,M0D1FY={ name IAC address )I Re register )! 

{({nainfi I ACa.ddcs.ss) I Reregister )l»trcl 

{* 1 ! 

[»MSGAREA=addcsss1 
[,0PTCD={B|U1 

{C{B|U1,{F|U1)11 
[,PRTMSG=[N|Y1 
[,REXMIT=CM|Y|*11 
[,UCS={cscl 

£C£S£,{F|F,V|V1)11 

,MF=(E,{ data management list address IC1 )1) 


dcbaddr —RX-Type Address or (2-12) 

BURST={NIY|*1 

is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When BURST=* is coded, the 
BURST field in the parameter list remains as it was 
previously set. This operand is valid for the 3800 printer 
only. 

CHARS=£ name lA( address )IR( register )! 

{C{ name IAC address )I Re register )1,...)1 
£*! 

is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When CHARS 5 * is coded, the 
CHARS field in the parameter list remains as it was 
previously set. 

COPIESrfnumbscI*! 

is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When COPIES 5 * is coded, the 
COPIES field in the parameter list remains as it was 
previously set. 
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COPYNR={aumb&£1*0 

is coded as shown in the standard form of the macro 
instruction# except for the X subparameter# which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When C0PYNR=x is coded# the 
COPYNR field in the parameter list remains as it was 
previously set. 

DISP={SCHEDULE|NOSCHEDULE I EXTERNAL } 

is coded as shown in the standard form of the macro 
instruction. 


FCB={jja a Laaid | ACaddcfissJ I Reregister)} 

{(( imageid I Atadd ress )I Re register )>*tVIAl)> 

£*} 

is coded as shown in the standard form of the macro 
instruction# except for the x subparameter# which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When FCB=x is coded# the FCB 
field in the parameter list remains as it was previously 
set. 


FLASH={pani£> 

{t [n.ame.)>£j.yn.t)} 

{*} 

is coded as shown in the standard form of the macro 
instruction# except for the X subparameter# which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When FLASH=X is coded# the 
FLASH field in the parameter list remains as it was 
previously set. 

INIT=CNIYJ 

is coded as shown in the standard form of the macro 
instruction. When INIT=Y is specified on the execute form 
of the SETPRT macro instruction# all 3800 fields in the 
parameter list (BURST# CHARS# COPIES, COPYNR# FCB# FLASH# 
MODIFY# and REXMIT) will be reset to binary zeros unless a 
specified field is preserved by coding keyword parameter=x 
or changed by specifying a valid subparameter for the 
keyword parameter as described in the standard form of the 
macro instruction. 


LIBDCB= dcbaddress —A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 


MODIFY=Cn a ma I Atad d re ss )IR< re gist er )} 

{C Cnama I At.add r e ss ) I Rtrs a isAflc13 > trc )> 

{*} 

is coded as shown in the standard form of the macro 
instruction# except for the X subparameter# which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When M0DIFY=x is coded# the 
MODIFY field in the parameter list remains as it was 
previously set. 


MSGAREA= address —A-Type Address or (2-12) 

is coded as shown in the standard form of the macro 
instruction. 

0PTCD=£B|U} 

C(CB|U},£F|U})3 

is coded as shown in the standard form of the macro 
instruction. 


PRTMSG={N|YJ 

is coded as shown in the standard form of the macro 
instruction. 

is coded as shown in the standard form of the macro 
instruction. 


zf~"\ 
i ) 


(f '"N 
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REXMIT={M|Y|*} 

is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When REXMIT=X is coded, the 
REXMIT field in the parameter list remains as it was 
previously set. 

UCS={cscl 

{(£<§£,{F|F,V|V})} 

is coded as shown in the standard form of the macro 
instruction. 

MF= (E, {daAgujnaii fl g em .e.n.iL-lis-'L.ad.diig.ss I (1)}) 

specifies that the execute form of the SETPRT macro 
instruction is used, and an existing data management 
parameter list is used. 

E —Coded as shown 

daia. ma nagsm e nt..lisi a d dress —RX-Type Address, (2-12), 

or (1) 
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£Tl?.Wri^ -SEL DIRECTORY.. 1BEM) 

The STOW macro instruction causes the system to update a 
partitioned data set directory by adding, changing, replacing, 
or deleting an entry in the directory. Only one entry can be 
updated at a time using the STOW macro instruction. If the 
entry to be added or replaced is a member name, the system 
writes an end-of-data indication following the member. All 
input/output operations using the same data control block must 
have previously been tested for completion. 

The STOW macro is written: 


V. J 


tsymfa.pl 3 

STOW 

defa-addrsss 



.lisl.addrs.ss 



directory action: 



C,directory aciionCAlC|D|R31 


dfib - a.ddc. es s —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the opened partitioned data set. The 
STOW macro instruction can be used only when the data set 
is opened for OUTPUT, UPDAT or OUTIN (BSAM). 

l i st-a dd r ess —RX-Type Address, (2-12), or (0) 

The list address operand specifies the address of the area 
containing the information required by the system to 
maintain the partitioned data set directory. The size and 
format of the area depend on the directory action requested 
as follows: 

Adding or Replacing a Directory Entry: The list address 
operand must specify an area at least 12 bytes long and 
beginning on a halfword boundary. The following 
illustration shows the format of the area: 


List Address 


Length 

Bytes 


_ 

NAME 

TTR 

C 

USER DATA ^ 

8 

3 

1 

0 to 62 


NAME: Specifies the member name or alias being added or 
replaced. The name must begin in the first byte of the 
field and be padded on the right with blanks, if necessary, 
to complete the 8-byte field. 

TT: Specifies the relative track number where the beginning 
of the data set is located. 

R: Specifies the relative block (record) number on the 
track identified by TT. 

Note: The TTR field shown above must be supplied by the 

problem program if an alias (alias bit is 1) is being added 
or replaced. The system supplies the TTR field when a 
member name is being added or replaced. 
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C? Specifies the type of entry (member or alias) for the 
name; the number of note list fields (TTRNs), and the 
length in halfwords, of the user data field. The following 
describes the meaning of the 8 bits; 


Bit Meaning 

0=0 Indicates a member name. 

0=1 Indicates an alias. 


1 and 2 Indicate the number of TTRN fields (maximum of 3) 
in the user data field. 

3-7 Indicate the total number of halfwords in the user 

data field. 


Deleting a Directory Entry? The list address operand must 
specify an 8-byte area that contains the member name or 
alias to be deleted. The name must begin in the first byte 
of the area and be padded on the right with blanks, if 
necessary, to complete the 8 bytes. 

Changing the Name of a Member? The list address operand 
must specify the address of a 16-byte area; the first 8 
bytes contain the old member name or alias, and the second 
8 bytes contain the new member name or alias. Both names 
must begin in the first byte of their 8-byte area and be 
padded on the right with blanks, if necessary, to complete 
the 8-byte field. 

din£g.iaEY_agJ; ion—[def.A|C|D|R] 

If the directory action operand is not coded, A (add an 
entry) is the default. The operand is coded as shown to 
specify the type of directory actions 

A 

specifies that an entry is to be added to the 
directory. 

0 

specifies that the name of an existing member or alias 
is to be changed. 

D 

specifies that an existing directory entry is to be 
deleted. 

R 

specifies that an existing directory entry is to be 
replaced by a new directory entry. If R is coded but 
the old entry is not found, the new entry is added to 
the directory and a completion code of X f 08* is 
returned in register 15. 


COMPLETION CODES 


When the system returns control to the problem program, register 
15 contains a return code and register 0 contains a reason code 
in the low-order byte; the three high-order bytes of both 
registers are set to 0. 
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The following is a list of return codes contained in register 
15: 


Codes 


Directory Action 


Return (15) 

A 

R 

D 

C 

00 

The update of 
the directory 
was completed 
successfully. 

The update of 
the directory 
was completed 
successfully. 

The update of 
the directory 
was completed 
successfully. 

The update of 
the directory 
was completed 
successfully. 

04 

The directory 
already 
contains the 
specified name. 



The directory 
already 
contains the 
specified new 
name. 

08 

. 

The specified 
name could not 
be found. 

The specified 
name could not 
be found. 

The specified 
old name could 
not be found. 

OC 

No space left 
in the 
directory. 

The entry 
could not be 
added, 

replaced, or 
changed. 

No space left 
in the 
directory. 

The entry 
could not be 
added/ 

replaced/ or 
changed. 


No space left 
in the 
directory. 

The entry 
could not be 
added/ 

replaced/ or 
changed. 

10 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
CSYNAD) 
routine. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
CSYNAD) 
routine. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
CSYNAD) 
routine. 

A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
CSYNAD) 
routine. 

14 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

The specified 
data control 
block is not 
open or is 
opened for 
input. 

18 

Insufficient 
virtual 
storage was 
available to 
perform the 

STOW function. 

Insufficient 
virtual 
storage was 
available to 
perform the 

STOW function. 

Insufficient 
virtual 
storage was 
available to 
perform the 

STOW function. 

Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 


f .^ 
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The following is a list of reason codes contained in register 0. 


Reason 

Code (0) Meaning 


00 (X^O 1 ) Reason code is not applicable. (Returned with 
all return codes except 10.) 

01 (X'Ol 1 ) All functions; the permanent I/O error occurred 
while reading or writing directory blocks. 

02 (X t 02 l ) Add and replace functions; the permanent 1/0 

error occurred while EOF mark after the member. 

3383 Error occurred when trying to write an EOF; all 

(X'DS?*) primary space used. 
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flSAHl 

The SYNABAF macro instruction is used in an error analysis 
routine to analyze permanent input/output errors. The routine 
can be a SYNAD exit routine specified in a data control block 
for EDAM, BISAM, BPAM, BSAM, QISAM, QSAM, or a routine that is 
entered directly from a program that uses the EXCP macro 
instruction. (The EXCP macro instruction is described in Data 

AdmiriisAm t i.o D - fiu i dg * > 

The SYNADAF macro instruction uses register 1 to return the 
address of a buffer containing a message. The message describes 
the error, and can be printed by a subsequent PUT or WRITE macro 
instruction. The message consists of EBCDIC information and is 
in the form of a variable-length record. The format of the 
message is shown following the descriptions of the SYNADAF 
operands. 

The system does not use the save area whose address is in 
register 13. Instead, it provides a save area for its own use, 
and then makes this area available to the error analysis 
routine. The system returns the address of the new save area in 
register 13 and in the appropriate location (word 3) of the 
previous save area,* it also stores the address of the previous 
save area in the appropriate location (word 2) of the new save 
area. 


The SYNADAF macro instruction passes parameters to the system in 
registers 0 and 1. When used in a SYNAD exit routine, the 
SYNADAF macro should be coded at the beginning of the routine. 
(See Figure 10, Figure 11, and Figure 12 in Appendix A, ”Status 
Information Following an Input/Output Operation” on page 190.) 
For BISAM and QISAM, the SYNAD exit routine has to set up these 
parameters as explained under PARM1 and PARM2. To save these 
parameters for use by the SYNAD exit routine, the system stores 
them in a parameter save area that follows the message buffer as 
shown in the message buffer format. The system does not alter 
the return address in register 14 or the entry point address in 
register 15. 


When a SYNADAF macro instruction is used, a SYNADRIS macro 
instruction must be used to release the message buffer and save 
areas, and to restore the original contents of register 13. 

The SYNADAF macro is written: 




SYNABAF | ACSMETH~{BBAM 

l# FARM1 
l ?PARM2 
{BPAM 
I,PARM1 
[,PARM2 
{BSAM 
C ?FARM! 
[?PARM2 
{QSAM 
[?PARM1 
[?PARM2 
{BISAM 
[?PARM1 
I?PARM2 
{EXCP 
CfPARM1 
{QISAM 
UPARM1 
I?PARM2 


s Estr.nL..r 3 . 91 s t&c 3 


: p_arpL sis^isisji 3} 


: &ar ffl-X.£.glis±^. 3 

: d g .b.^ddc.e.ssn 

s d£.ba.d.ri£3 


ACSMETHsBBAM? BPAM# BSAM* QSAM? BISAM? EXCP? or QISAM 
specifies the access method used to perform the 
input/output operation for which error analysis is 
performed. 


/"X 
r, ; } 
V X_> / 
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PARMl=p a r m re gister* i&baddE. or d&kaddc —(2-12) or (1) 

specifies the address of information that is dependent on 
the access method being used. For BDAM, BPAM, BSAM, or 
QSAM, the operand specifies a register that contains the 
information that was in register 1 on entry to the SYNAD 
routine. For BISAM or QISAM, it specifies the address of 
the data control block; for EXCP, it specifies the address 
of the input/output block. If the operand is omitted, 
PARMl=tl) is assumed. 

PARM2= parm register —(2-12), (0), or RX-Type 
(only if ACSMETH=QISAM) 

specifies the address of additional information that is 
dependent on the access method beir.g used. For BDAM, BPAM, 
BSAM, QISAM, and QSAM, the operand specifies a register 
that contains the information that was in register 0 on 
entry to the SYNAD exit routine. For BISAM, the operand 
specifies a register that contains the information that was 
in register 1 on entry to the SYNAD exit routine (the 
address of the DECB). For EXCP, the operand is meaningless 
and should be omitted. If the operand is omitted, except 
in the case of EXCP, PARM2=(0) is assumed. 

Note: To correctly load the registers for SYNADAF for BISAM, 

code these two instructions before issuing the SYNADAF macros 

LR 0,1 GET DECB ADDRESS 

L 1,8(1) GET DCB ADDRESS 


COMPLETION CODES 


When the system returns control to the problem program, the 
low-order byte of register 0 contains one of the following 
reason codes; the three high-order bytes of register 0 are set 
to 0. 

Reason 

Code (0) Meaning 


00 (X f 00*) Successful completion. Bytes 8 through 
13 of the message buffer contain 
blanks. 

04 (X f 04 f ) Successful completion. Bytes 8 through 
13 of the message buffer contain binary 
data. 


08 (X^S 1 ) Unsuccessful completion. The message 

can be printed, but some information is 
missing in bytes 50 through 127 and is 
represented by asterisks. If byte 8 is 
a blank (X f 40*), bytes 9 through 13 are 
either blanks or are not initialized. 

If byte 8 is not a blank, then data was 
read, and bytes 8 through 13 of the 
message buffer contain binary data. 
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MESSAGE BUFFER FORMAT ^ ^ 

The following illustration shows the format of the message \ y 

buffer; the address of the buffer is returned in register 1. 





Notes: 

1. The device type field (bytes 72 through 73) contains UR for a unit record 

device* TA for a magnetic tape device, or DA for a direct access device. 

2. If a message field (bytes 91 through 105) is not applicable to the type of error 

that occurred, it contains N/A or NOT APPLICABLE. 

3. If no data was transmitted, or if the access method is QISAM, bytes 8 through 13 

contain blanks or binary zeros. 

A. If the access method is BISAM, bytes 68 through 70, 84 through 89, and 107 
through 120 contain asterisks. 

5. If the access method is BDAM, and if the error was an invalid request, bytes 107 
through 120 contain EBCDIC zeros. 

6. The unit address field (bytes 68 through 70) contains the letters 'JES' if the 
data set is SYSIN or SYSOUT. 


J 
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S Y M A PRLS —R EL E A S £^SYMAPAE .P U FFER ANP...SA V . E .. A REAS. (B P A M .1...BI S AMi..B P AH^g.SAM i ^EX C P.i. 

fllSAHi^ANP^aSAHi 


The SYNADRLS macro instruction releases the message buffer, 
parameter save area, and register save area provided by a 
SYNADAF macro instruction. It must be used to perform this 
function whenever a SYNADAF macro instruction is used. 

When the SYNADRLS macro instruction is issued, register 13 must 
contain the address of the register save area provided by the 
SYNADAF macro instruction. The control program loads register 
13 with the address of the previous save area, and sets word 3 
of that save area to 0. Thus, when control is returned, the 
save area pointers are the same as before the SYNADAF macro 
instruction was issued. 

The SYNADRLS macro is written* 


[ symbol l 


SYNADRLS 


b 


When the system returns control to the problem program, the 
low-order byte of register 0 contains one of the following 
reason codes; the three high-order bytes of register 0 are set 
to 0. 

Reason 

Code (0) Meaning 


00 (X'OO 9 ) Successful completion. 

08 (X'OS 1 ) Unsuccessful completion. The buffer 

and save areas were not released; the 
contents of register 13 remain 
unchanged. Register 13 does not point 
to the save area provided by the 
SYNADAF macro instruction, or this save 
area is not properly chained to the 
previous save area. 


Macro Instruction Descriptions 


169 
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| MTIQP£ V —SYN C HRONIZE .PEVICE 

The SYNCDEV macro instruction allows you to control data 
synchronization for the IBM 3480 Magnetic Tape Subsystem that 
supports buffered write mode. Data records in the tape control 
unit buffer may not yet be on tape when your program is ready to 
send more. There is no way to determine how much data is left 
in the buffer, and it is time dependent to tape motion. This 
data is not synchronized to your program; that is, you could 
overlay unwritten data in the buffer, or lose data when it is 
transferred from the channel if the buffer does not have enough 
space to hold it. You can use the SYNCDEV macro to either? 

• Request information regarding synchronization 

• Demand synchronization if the specified number of data 
blocks are buffered 

If more blocks are buffered than were specified, the system 
stays in control until all the blocks are written to the 
tape or it detects an I/O error. 

If the same amount or fewer blocks are buffered, buffering 
is not affected. 

Note: Demands for synchronization are ignored if the drive is 

in read mode. 

The SYNCDEV macro is written? 


[symbol1 

SYNCDEV 

DCB=addr 



I.CABUFBLK=addrIBUFBLK= 



Imaximym-byff.er-d5R.tblH}>? 



[ p INQ={YESIMQ}1 


The following describes the operands that can be specified for 
SYNCDEV. 

DCB= addr —A-Type address or (2-12) 

specifies the address of the data control block. 

ABUFBLK=addn I BUFBLK=ina2d^ I£ 

specifies the maximum number of data blocks that can be 
buffered. 

ABUFBLK= addr —A-Type address or (2-12) 

specifies the address of a halfword on a halfword 
boundary that contains a value that specifies the 
maximum number of data blocks that can be buffered. 

BUFBLK={maxim y m.. b uffer.-. de pt h lll> 

specifies the maximum number of data blocks that can 
be buffered. This number can be an absolute value 
from 0 to 65535. The BUFBLK value can be in the two 
low-order bytes of a register (2-12). 

SL 

If neither ABUFBLK nor BUFBLK is specified, the 
number of data blocks that can be buffered 
defaults to 0, and no data blocks are buffered. 

INQ=CYESiHQ} 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer. 


/f~"\ 
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specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in ABUFBLK or BUFBLK. 

Register 0 contains the number of buffered physical 
blocks if the previous operation completed 
successfully. 

Note: Do not use this option in 31~bit residence 

mode; it requires a 24-bit addressing mode parameter 
list. 
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| SYHCJEVzr.LISI.FQRM r x 

I The list form of the SYNCDEV macro is written * V_y 


tsymbflU 

SYNCDEV 

CDCB=addcl 



[.CBUFBLK=maximum buffer depth 1011 



[,INQ={YES|liQ}l 



»MF=L 


The following describes the operands that can be specified for 
the list form of SYNCDEV. 

DCB=add£~A~Typ@ address 

specifies the address of the data control block. 

BUFBLK” { d&ELlh! JIT 

specifies the maximum number of data blocks that can be 
buffered. This number can be an absolute value from 0 to 
65535. If BUFBLK is not specified# the number of data 
blocks that can be buffered defaults to 0# and no data 
blocks are buffered. 


If neither ABUFBLK nor BUFBLK is specified# the number 
of data blocks that can be buffered defaults to 0# and 
no data blocks are buffered. 

INQ=CYE$IMQJ 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer. 

MS 

specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in BUFBLK. 

MF~l 

generates a 24-bit addressing-mode parameter list that 
contains no executable instructions. The list can be used 
as input and can be modified by the execute form of the 
SYNCDEV macro. 

Notes Do not use this option in 31-bit residence mode; it 
requires a 24-bit addressing-mode parameter list. 


{ f \ 
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SYN Q PEV r -EXEWTE FORM 

The execute form of the SYNCDEV macro is writteni 


[ symbol 3 


SYNCDEV 


[DCBsaddnJ 

[,CABUFBLK= addr lBUFBLK= 

{ maximum buffer depth !0»1 
[ t INQ=£YESIMfi}1 
,MF=(E,addr) 


The following describes the operands that can be specified for 
the execute form of SYNCDEV. 

DCB= addr —A-Type address or (2-12) 

specifies the address of the data control block. 

ABUFBLK=asMc I BUFBLK=Cma2dJ^ I Q. 

specifies the maximum number of data blocks that can be 
buffered. 

ABUFBLK= addi- A-Tvoe address or (2-12) 

specifies the address of a halfword on a halfword 
boundary that contains a value that specifies the 
maximum number of data blocks that can be buffered. 

BUFBLK=mayimym. ^ u£terL-dai>iJ31A 

specifies the maximum number of data blocks that can 
be buffered. This number can be an absolute value 
from 0 to 65535. The BUFBLK value can be in the two 
low-order bytes of a register (2-12). 

J1 

If neither ABUFBLK nor BUFBLK is specified, the 
number of data blocks that can be buffered 
defaults to 0, and no data blocks are buffered. 

XNQ=£YES|MQ} 

specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 

YES 

specifies an inquiry as to how many data blocks are in 
the buffer. 

m 

specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in ABUFBLK or BUFBLK. 

Register 0 contains the number of buffered physical 
blocks if the previous operation completed 
successfully. 

Note* Do not use this option in 31-bit residence 
mode; it requires a 24-bit addressing mode parameter 
list. 

MF=CE»addr) 

specifies the execute form of SYNCDEV, 

addr -—A-Type address? RX-Typ® address? or (2-12) 

specifies the 24-bit addressing-mode address for the 
parameter list. 
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COMPLETION CODES 

When the system returns control to your problem program# the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code: 

Return Reason 


Code (15) 

Code (0) 

Meaning 

00 

CX'OO 1 ) 



Successful completion. Register 0 
contains the number of data blocks in 
the control unit buffer. 

04 

(X 9 04 9 ) 

01 

(X 1 01 8 ) 

Incorrect parameter. 

04 

(X s 04 1 ) 

02 

(X 1 02 9 ) 

Incorrect DCB or a DEBCHK error. 

04 

(X s 04 8 ) 

03 

(X 9 03 ®) 

Environmental error. 

04 

CX f 04 8 ) 

04 

(X 9 04 1 ) 

Incorrect input to NOTE. 

04 

(X* 04 8 ) 

05 

(X 9 05 9 ) 

Device does not support buffering. 

04 

(X 8 04 8 ) 

11 

(X 9 0B 8 ) 

Unsuccessful call to ESTAE macro. 

04 

(X f 04 1 ) 

12 

(X 9 QC 9 ) 

Unsuccessful GETMAIN request. 

OS 

(X 9 08 9 ) 



Permanent I/O error during read block 

ID or synchronize command. 

12 

CX f 0C f ) 



Permanent 1/0 error on the last channel 
program with loss of data. 


Note: If you specified a SYNAD option 

in the DCB and issue a PUT or CHECK 
macro after this error occurs# your 
program cannot enter the SYNAD routine. 




v,y 
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IBy W(^T l^ CM E.J^NJ ?U T£UTL BUFE£ R.LQS A M .QU LT PU I ~F IX E B r .QR VA R I ABIE-.LENST H .BL OC KED 

REC O RDS) 


The TRUNC macro instruction causes the current output buffer to 
be regarded as full. The next PUT or PUTX macro instruction 
specifying the same data control block uses the next buffer to 
hold the logical record. 

When a variable-length spanned record is truncated and logical 
record interface, or extended logical record interface, is 
specified (that is, if BFTEK=A is specified in the DCB macro 
instruction, or if a BUILDRCD macro instruction is issued, or if 
DCBLRECL=OK or nnnnnK is specified), the system segments and 
writes the record before truncating the buffer. Therefore, the 
block being truncated is the one that contains the last segment 
of the spanned record. 

The TRUNC macro instruction is ignored if it is used for 
unblocked records, if it is used when a buffer is full, or if it 
is used without an intervening PUT or PUTX macro instruction. 

The TRUNC macro is writteni 




TRUNC 


defen d d r e s s 


deb address —RX-Type Address, (2-12), or (1) 

The deb address operand specifies the address of the data 
control block for the sequential data set opened for 
output. The record format in the data control block must 
not indicate standard blocked records (RECFM^FBS). 
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Wm—WAI I .F O R .O N E P R J 1 QRE ..EV E NTS^l ED AH ? ,.BIg A 1 1 f.,P PA M>. J\NP J8 SAM.I 


The WAIT macro instruction is used to inform the control program f ^ 

that performance of the active task cannot continue until one or V y 

more specific events, each represented by a different ECB (event 
control block), have occurred. In the context of this manual, 
the ECBs represent completion of I/O processing associated with 
a READ or WRITE macro. ECBs are located at the beginning of 
access method DECBs (data event control blocks), so that the 
DECB name provided in READ and WRITE macros is also used for 
WAIT. (A description of the ECB is found in Appendix A, "Status 
Information Following an Input/Output Operation" on page 190. 

For information on when to use the WAIT macro, see Data 

A dmi mstr a -ti on - QM i de ») 

The control program takes the following action: 

• For each event that has already occurred (each ECB is 
already posted), the count of the number of events is 
decreased by 1. 

• If the number of events is 0 by the time the last event 
control block is checked, control is returned to the 
instruction following the WAIT macro instruction. 

• If the number of events is not 0 by the time the last ECB is 
checked, control is not returned to the issuing program 
until sufficient ECBs are posted to bring the number to 0. 

Control is then returned to the instruction following the 
WAIT macro instruction. 

• The events will be posted complete by the system when all 
I/O has been completed, temporary errors have been 
corrected, and length checking has been performed. The DECB 
is not checked for errors or exceptional conditions, nor are 
end-of-volume procedures initiated. Your program must 
perform these operations. 

The WAIT macro is written: 



WAIT 

(number of events] 

H 

{, ECB=addr 1 ECBLIST=addr_} 

[,LONG={YES|NQ}3 


aumMr^gJ:.-events 

specifies a decimal integer from 0 to 255. Zero is an 
effective NOP instruction; 1 is assumed if the operand is 
omitted. The number of events must not exceed the number 
of event control blocks. You may also use register 
notation (2-12). 

ECB=addr 

specifies the address of the event control block (or DECB) 
representing the single event that must occur before 
processing can continue. The operand is valid only if the 
number of events is specified as 1 or is omitted. 

stddr 

specify RX type or use register notation (1-12). 
ECBLIST=addc 

specifies the address of a virtual storage area containing 
one or more consecutive fullwords on a fullword boundary. 
Each fullword contains the address of an event control 
block (or DECB); the high-order bit in the last word 
(address) must be set to 1 to indicate the end of the list. 
The number of event control blocks must be equal to or 
greater than the specified number of events. 


/O 
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LONG=[YES|]iQ] 

specifies whether the task is entering a long wait or a 
regular wait. Normally, I/O events should not be 
considered 'long 1 unless it is anticipated that operator 
intervention will be required. 

Caution: A job step with all its tasks in a WAIT condition 
terminates upon expiration of the time limits that apply to it. 

Access method ECBs are maintained entirely by the access methods 
and supporting control program facilities. The user may inspect 
access method ECBs, but should never modify them. 
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The WRITE macro instruction causes the system to add or replace y 

a block in an existing direct data set. (This version of the \ y 

WRITE macro instruction cannot be used to create a direct data 
set because no capacity record facilities are provided.) 

Control may be returned before the block is written. The output 
operation must be tested for completion using a CHECK or WAIT 
macro instruction. A data event control block, shown in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 190, is constructed as part of the macro 
expansion. 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


tsymbol! 

WRITE 

decb name 



j>±YE£ 

> deb address 
t Can&aL-a ddneas 1 $ f J 
t CLenath1'S 1 } 
t {key address 1'S'10} 

»block .address 


—symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 


type— f DA t FI} 

CDICFlXn 

{DKCF|X)J 

is coded in one of the combinations shown to specify the 
type of write operation and optional services performed by 
the system: 


specifies that a new data block is to be added to the 
data set. The search for available space starts on 
the track indicated by the block address operand. 
Fixed-length records (with keys only) are added to a 
data set by replacing dummy records. Variable-length 
records (with or without keys) are added to a data set 
by using available space on a track. (For more 
information on adding records to a direct data set, 
see Data Administration Guide . For a description of 
adding records with extended search, see the LIMCT 
operand of the DCB macro. 


specifies that a data block and key, if any, are to be 
written at the device address indicated in the area 
specified in the block address operand. Any attempt 
to write a capacity record (R0) is an invalid request 
when relative track addressing or actual device 
addressing are used, but when relative block 
addressing is used, relative block 0 is the first data 
block in the data set. 


specifies that a data block (only) is to be written 
using the key in the area specified by the key address 
operand as a search argument; the search for the block 
starts at the device address indicated in the area 
specified in the block address operand. The 
description of the DCB macro instruction, LIMCT 
operand, contains a description of the search. 
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F 

requests that the system provide block position 
feedback into the area specified in the block address 
operand. This character can be coded as a suffix to 
DA* DI* or DK as shown above. 

X 

requests that the system release the exclusive control 
requested by a previous READ macro instruction and 
provide block position feedback into the area 
specified in the block address operand. This 
character can be coded as a suffix to BI or DK as 
shown above. 

deb address —A-Type Address or (2~12) 

specifies the address of the data control block for the 
opened BDAM data set. 

aEM.address—A"Type Address, (2-12), or ®S f 

specifies the address of the area that contains the data 
block to be written. *8* can be coded instead of an area 
address only if the data block (or key and data) are 
contained in a buffer provided by dynamic bufferings that 
is, *8* was coded in the area address operand of the 
associated READ macro instruction. If ®S f is coded in the 
WRITE macro instruction, the area address from the READ 
macro instruction data event control block must be moved 
into the WRITE macro instruction data event control block; 
the buffer area acquired by dynamic buffering is released 
after the WRITE macro instruction is executed. For a 
description of the data event control block, see 
Appendix A, “Status Information Following an Input/Output 
Operation” on page 190. 

length —symbol, decimal digit, absexp, (2-12) or f S® 

specifies the number of data bytes to be written up to a 
maximum of 32760. If ’S’ is coded, it specifies that the 
system uses the value in the block size (DCBBLKSI) field as 
the length. When undefined-length records are used, if the 
WRITE macro instruction is for update and the length 
specified differs from the original block, the new block 
will be truncated or padded with binary zeros accordingly. 
The problem program can check for this situation in the 
SYNAD routine. 

If.the length operand is omitted for format-U records, no 
error indication is given when the program is assembled, 
but the problem program must insert a length into the data 
event control block before the WRITE macro instruction is 
executed. 

kev address —A-Type Address, (2-12), 'S', or 0 

specifies the address of the area that contains the key to 
be used. 'S* is specified instead of an address only if 
the key is contained in an area acquired by dynamic 
buffering. If the key is not written or used as a search 
argument, zero is specified instead of a key address. 

block address —A-Type Address or (2-12) 

specifies the address of the area that contains the 
relative block address, relative track address, or actual 
device address used in the output operation. the length of 
the area depends on the type of addressing used and if the 
feedback option C0PTCD=F) is specified in the data control 
block. 

If QPTCD-F has been specified in the DCB macro and F or X 
is specified in the WRITE macro, you must provide a 
relative block address in the form specified by OPTCD in 
the DCB macro. For example, if OPTCD-R is specified, you 
must provide a 3-byte relative block address; if 0PT€B~A is 
specified, you must provide an 8-byte actual device address 
(MBBCCHHR); if neither is specified, you must provide a 
3-byte relative address (TTR). 
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If OPTCD-F has not been specified in the DCB macro and F or 
X is specified in the WRITE macro, then you must provide an 
8-byte actual device address (MBBCCHHR) even if relative ff~"\ 

block or relative track addressing is being used. ^ 
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The WRITE macro instruction causes the system to add or replace 
a record or replace an updated block in an existing indexed 
sequential data set. Control may be returned to the problem 
program before the block or record is written. The output 
operation must be tested for completion using a WAIT or CHECK 
macro instruction. A data event control block, shown in 
Appendix A, t8 Status Information Following an Input/Output 
Operation 11 on page 190, is constructed as part of the macro 
expansion. 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


£symbol 1 

WRITE 

>l5!£§ 



»{area address 1 9 S *} 
t Cjenqth|* S s 1 


_ ^symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 


type —CSC i KNI 

is coded as shown to specify the type of write operation: 


K 

specifies that either an updated unblocked record or a 
block containing an updated record is to be written. 

If the record has been read using a READ KU macro 
instruction, the data event control block for the READ 
macro instruction must be used as the data event 
control block for the WRITE macro instruction, using 
the execute form of the WRITE macro instruction. 

KM 

specifies that a new record is to be written, or a 
variable-length record is to be rewritten with a 
different length. All records or blocks of records 
read using READ KU macro instructions for the same 
data control block must be written back before a new 
record can be added, except when the READ KU.and WRITE 
KN reference the same DECB, 

iddress —A-Type Address or (2-12) 

specifies the address of the data control block for the 
opened existing indexed sequential data set. If a block is 
written, the data control block address must be the same as 
the deb address operand in the corresponding READ macro 
instruction. 

■ftddnfiga~A"Type Address, (2-12), or ’S' 

specifies the address of the area containing the logical 
record or block of records to be written. The first 16 
bytes of this area are used by the system and should not 
contain your data, Tha area address must specify a 
different area than tha key address. When new records are 
written Cor when variable-length records are rewritten with 
a different length), the area address of the new record 
must always ba supplied by tha problem program. This area 
may ba altered by the system. 'S’ may be coded instead of 
an address only if the block of records is contained in an 
area provided by dynamic buffering; that is, 1 8 f was coded 
for the area address operand in the associated READ KU 
macro instruction. This area is released after execution 
of a WRITE macro instruction using the.same DECS, The area 
can also be released by a FREEDBUF macro instruction. 
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The following illustration shows the format of the areas 

Area- 

Address 


1 

V 

fr 

Control 

Logical Record (WRITE KN) or Block 

Program Use 

of Records (WRITE K) 



Indexed sequential buffer and work area requirements are 
discussed in Bal a ,_& d min i , g ,tr:a Lt ian J Siii d s * 

length —symbol/ decimal digit/ absexp/ (2-12) or f S* 

specifies the number of data bytes to be written/ up to a 
maximum of 32760. Specify , S* unless a variable-length 
record will be rewritten with a different length. 

k&L J BUi dr & S S —A -Type Address or (2-12) 

specifies the address of the area containing the key of the 
new or updated record. The key address must specify a 
different area than the area address. For blocked records/ 
this is not necessarily the high key in the block. For 
unblocked records/ this field should not overlap with th$ 
work area specified in the MSWA parameter of the DCB macro 
instruction. 

Note: When new records are written/ the key area may be 

altered by the system. 
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MRlTJErrMRU^ _ i BPAH- AN DJ5.S A HI 

The WRITE macro instruction causes the system to add or replace 
a block in a sequential or partitioned data set being created or 
updated. Control may be returned to the problem program before 
the block is written. The output operation must be tested for 
completion using the CHECK macro instruction. A data event 
control block, shown in Appendix A, "Status Information 
Following an Input/Output Operation" on page 190, is constructed 
as part of the macro expansion. 

If translation from EBCDIC code to ISCII/ASCII code is 
requested, issuing multiple WRITE macro instructions for the 
same record causes an error because the first WRITE macro 
instruction issued causes the output data in the output buffer 
to be translated into ISCII/ASCII code. 

If the OPEN macro instruction specifies UPDAT, both the READ and 
WRITE macro instructions must reference the same data event 
control block. See the list form of the READ or WRITE macro 
instruction for a description of how to construct a data event 
control block; see the execute form of the READ or WRITE macro 
instruction for a description of modifying an existing data 
event control block. 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


tsymbol] 

WRITE 

deeb name 
, SF 

.dob-address 



.area address 

I, length!,'S'] 


d S Q b. na m e—symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 


SF 

specifies normal, sequential, forward operation. 

deb address —A-Type Address, or (2-12) 

specifies the address of the data control block for the 
opened data set being created or processed. If the data 
set is being updated, the data control block address must 
be the same as the deb address operand in the corresponding 
READ macro instruction. 

area address —A-Type Address or (2-12) 

specifies the address of the area that contains the data 
block to be written; if a key is written, the key must 
precede the data in the same area. 

length —symbol, decimal digit, absexp, (2-12) or , S* 

specifies the number of bytes to be written; this operand 
is specified for only undefined-length records (RECFM=U) or 
for ASCII records (RECFM=D) when the DCB BUFOFF operand is 
zero. For AL tapes, the maximum length is 2048 bytes; 
otherwise, the maximum length is 32760 bytes. , S I can be 
coded to indicate that the value specified in the block 
size (DCBBLKSI) field of the data control block is used as 
the length to be written. The length operand should be 
omitted for all record formats except format-U and format-D 
(when BUFOFF=0). 

If the length operand is omitted for format-U or format-D 
(with BUFOFF=0) records, no error indication is given when 
the program is assembled, but the problem program must 
insert a length into the data event control block before 
the WRITE macro is issued. 
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MRlIE=WRm^ .S EUI IH.-B 9 AH1 

The WRITE macro instruction causes the system to add a block to ff \ 

the direct data set being created. For fixed-length blocks; the 4, > 

system writes the capacity record automatically when the current 
track is filled; for variable and undefined-length blocks; a 
WRITE macro instruction must be issued for the capacity record. 

Control may be returned before the block is written. The output 
operations must be tested for completion using a CHECK macro 
instruction. A data event control block; shown in 
Appendix A; "Status Information Following an Input/Output 
Operation" on page 190; is constructed as part of the macro 
expansion. 

The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


Esymbsll 


WRITE 


d . fig .b-fiami a 

»dgjfcL^tdd«ifess 

> ar, ea ..a dd cg s s 

£ y lengL-thl * 'S f 1 

I# n . ext , ad d r ess ) 


dash-name —symbol 

specifies the name assigned to the data event control block 
created as part of the macro expansion. 

{SFISFRISDISZ1 

is coded as shown; to specify the type of write operation 
performed by the system: 

SF 

specifies that a new data block is to be written in 
the data set. 

SFR 

specifies that a new variable-length spanned record is 
to be written in the data set; and next address 
feedback is requested. This operand can be specified 
only for variable-length spanned records (BFTEK=R and 
RECFM=VS are specified in the data set control block). 

If type SFR is specified; the next address operand 
must be included. 

SD 

specifies that a dummy data block is to be written in 
the data set; dummy data blocks can be written only 
when fixed-length records with keys are used. 

SZ 

specifies that a capacity record (R0) is to be written 
in the data set; capacity records can be written only 
when variable-length or undefined-length records are 
used. 

deb address —A-Type Address or (2-12) 

specifies the address of the data control block opened for 
the data set being created. DS0RG=PS (or PSU) and MACRF=WL 
must be specified in the DCB macro instruction to create a 
BDAM data set. 

ar M -a .dd r ess —A-Type Address or (2-12) 

specifies the address of the area that contains the data 
block to be added to the data set. If keys are used; the 
key must precede the data in the same area. For writing 
capacity records (SZ); the area address is ignored and can 
be omitted (the system supplies the information for the /if 

capacity record). For writing dummy data blocks (SD); the ll 

area need be only large enough to hold the key plus one 
data byte. The system constructs a dummy key with the 
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first byte set to all 1 bits (hexadecimal FF) and adds the 
block number in the first byte following the key. When a 
dummy block is written, a complete block is written from 
the area immediately following the area address; therefore, 
the area address plus the value specified in the BLKS1ZE 
and KEYLEN operands must be within the area allocated to 
the program writing the dummy blocks. 

length —symbol, decimal digit, absexp, (2-12), or 'S 1 

is used only when undefined-length (RECFM=U) blocks are 
being written. The operand specifies the length of the 
block, in bytes, up to a maximum of 32760. If *8* is 
coded, it specifies that the system is to use the length in 
the block size (DCBBLKSI) field of the data control block 
as the length of the block to be written. 

If the length operand is omitted for format-U records, no 
error indication is given when the program is assembled, 
but the problem program must insert a length into the data 
event control block before the WRITE is issued. 

next address —A-Type Address or (2-12) 

specifies the address of the area where the system places 
the relative track address of the next record to be 
written. Next address feedback can be requested only when 
variable-length spanned records are used. 

Note: When variable-length spanned records are used (RECFM=VS 

and BFTEK=R are specified in the data control block), the system 
writes capacity records (R0) automatically in the following 
cases: 

• When a record spans a track. 

• When the record cannot be written completely on the current 
volume. In this case, all capacity records of remaining 
tracks on the current volume are written; tracks not written 
for this reason are still counted in the search limit 
specified in the LIMCT operand of the data control block. 

• When the record written is the last record on the track, the 
remaining space on the track cannot hold more than eight 
bytes of data. 
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| COMPLETION CODES FOR WRITE—WRITE A BLOCK (CREATE A BDAM DATA SET WITH BSAM) 

After the write has been scheduled and control has been returned (* 
to the user f s program, the three high-order bytes of register 15 \ 

are set to 0; the low-order byte contains one of the following 
return codes: 


Return 

Code Meaning 


00 


04 


08 


0C 


Fixed-Length 
(SF or SD) 

Block will be written. 
(If the previous 
return code was 08, 
a block is written 
only if the DD 
statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 

Block will be written, 
followed by a capacity 
record. (If the 
previous return code 
was 08, a block is 
written only if the 
DD statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 

Block will be written, 
followed by a capacity 
record. The next 
block requires 
secondary space 
allocation. 


Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


Variable or Undefined-L< 
(SF or SFR) 

Block will be written. 
(If the previous 
return code was 08, 
a block is written 
only if the DD 
statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 

Block was not written; 
write a capacity record 
(SZ) to describe the 
current track, then 
reissue the WRITE macro 
instruction. 


Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


mgth 

(SZ) 

Capacity record was 
written; another track 
is available. 


Capacity record was 
written. The next 
block requires 
secondary space 
allocation. This 
code is not issued 
if the WRITE SZ is 
the only WRITE macro 
instruction issued on 
a one-track secondary 
extent. 

Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


Note: For fixed-length records, the return codes are unpredictable when writing one 

record per track with one track per extent. 


zf 

l O' 
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The list form of the WRITE macro instruction is used to 
construct a data management parameter list in the form of a data 
event control block (DECB). For a description of the various 
fields in the DECB for each access method# see 
Appendix A# "Status Information Following an Input/Output 
Operation” on page 190. 

The description of the standard form of the WRITE macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of *S f 
when coded for the area address# length# and key address 
operands. For each access method# 'S’ can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the list form only# but 
does not indicate optional and required operands for any 
specific access method. 

The list form of the WRITE macro is written: 


[symbol] 

WRITE 

decb ngtne 



> tyjgfi 

> [rf.sfa-.addn.ass 3 

y [area address 1"S’ 1 
t [lenatbl 'S'l 
y [Key address 1'S'l 
t [block address! 
r [next address] 

,MF=L 


decb name -—symbol 

type —Code one of the types shown in the standard form 

dLb-^iid t e as— A -Type Address 

arjsa..addr e ss"—A-Type Address or 1 S 1 

length —-symbol# decimal digit# absexp# or w S ff 

kev address —A-Type Address or *S 1 

bl. Oc K.add.L es s—A - Type Address 

n ext. ad dres s— A-Type Address 

MF=L—Coded as shown 

specifies that the WRITE macro instruction is used to 
create a data event control block that will be referenced 
by an execute-form instruction. 
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MRH£=EMSm!LSSm 


A remote data management parameter list (data event control 
block) is used in# and can be modified by# the execute form of 
the WRITE macro instruction. The data event control block can 
be generated by the list form of either a READ or WRITE macro 
instruction. 

The description of the standard form of the WRITE macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of *S f 
when coded for the area address# length# and key address 
operands. For each access method# 'S’ can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the execute form only# but 
does not indicate the optional and required operands for any 
specific access method. 

The execute form of the WRITE macro instruction is written as 
follows s 


/f'^\ 

| { j 

y 



Address or (2-12) 

type —Code one of the types shown in the standard form 
deb address —RX-Type Address or (2-12) 
ar.^a.^ d dr fe SS—RX-Type Address# (2-12), or ? S* 
length —-symbol * decimal digit# absexp# (2-12)# or f S f 
kgy^dskia^”RX-Type Address, (2-12), or l S f 
block address —RX-Type Address or (2-12) 
next address — RX-Type Address or (2-12) 

MF=E—-Coded as shown 

specifies that the execute form of the WRITE macro 
instruction is used# and an existing data event control 
block (specified in the deeb address operand) is to be used 
by the access method. 




188 MVS/XA Data Administration * Macro Instruction Reference 




XLATE 


XLAIEzz TRA N ? L AI EL .19. JLSfcll 

The XLATE macro instruction is used to translate the data in an 
area in virtual storage from ISCII/ASCII code to EBCDIC code or 
from EBCDIC code to ISCII/ASCII code. 

To determine the ISCII/ASCII to EBCDIC or EBCDIC to ISCII/ASCII 
translation codes, see ANSI X3.26-1980 (American National 
Standard for Hollerith punch card code). When translating 
EBCDIC code to ISCII/ASCII code, all EBCDIC code not having an 
ISCII/ASCII equivalent is translated to X’lA*. When translating 
ISCII/ASCII code to EBCDIC code, all ISCII/ASCII code not having 
an EBCDIC equivalent is translated to X^F*. Because Version 3 
ISCII/ASCII uses only 7 bits in each byte, bit 0 is always set 
to 0 during EBCDIC to ISCII/ASCII translation and is expected to 
be 0 during ISCII/ASCII to EBCDIC translation. 

The XLATE macro is written? 


tsymbol? 

XLATE 

area.address. 



t .Length 
[>T0={A|£}1 


area address —RX~Type Address, symbol, decimal digit, absexp, 
(2~12), or (1) 

specifies the address of the area that is to foe translated. 

length —symbol, decimal digit, absexp, (2~12), or (0) 
specifies the number of bytes to foe translated. 

T0=CA1£3 

specifies the type of translation requested. If this 
operand is omitted, E is assumed. The following describes 
the characters that can foe specified? 

A 

specifies that translation from EBCDIC code to 
ISCII/ASCII code is requested. 


specifies that translation from ISCII/ASCII code to 
EBCDIC code is requested. 


Macro Instruction Descriptions 


189 







AP-E&flBIX-A*_ 


Following an input/output operation, the control program makes 
certain status information available to the problem program. 

This information is a 2-byte exception code* or a 16-byte field 
of standard status indicators, or both. 

Exception codes are provided in the data control block (QISAM), 
or in the data event control block (BISAM and BDAM). The data 
event control block is described below, and the exception code 
lies within the block as shown in the illustration for the data 
event control block. If a DCBD macro instruction is coded, the 
exception code in a data control block can be addressed as two 
1-byte fields, DCBEXCD1 and DCBEXCD2. The exception codes can 
be interpreted by referring to Figure 7 on page 191, Figure 8 on 
page 193, and Figure 9 on page 195. 

Status indicators are available only to the error analysis 
routine designated by the SYNAD entry in the data control block. 
A pointer to the status indicators is provided either in the 
data event control block (BSAM, BPAM, and BDAM), or in register 
0 (QISAM and QSAM). The contents of registers on entry to the 
SYNAD exit routine are shown in Figure 10 on page 197, Figure 11 
on page 198, and Figure 12 on page 199. The status indicators 
are shown in Figure 13 on page 200. 


MiK^mK^smsEQij^LQm 

A data event control block is constructed as part of the 
expansion of READ and WRITE macro instructions and is used to 
pass parameters to the control program, help control the read or 
write operation, and receive indications of the success or 
failure of the operation. The data event control block is named 
by the READ or WRITE macro instruction, begins on a fullword 
boundary, and contains the information shown in the following 
illustration: 


Field Contents 


Offset from DECS 
Address (Bytes) 

0 

+4 
+6 
+8 
+ 12 
+ 16 

+20 

+24 

+28 


BSAM and BPAM 

ECB 

Type 

Length 

DCB address 

Area address 

I0B address 


BISAM 

ECB 

Type 

Length 

DCB address 

Area address 

Logical record 
address 

Key address 

Exception code 
(2 bytes) 


BDAM 

ECB 1 

Type 

Length 

DCB address 

Area address 

IOB address 

Key address 
Block address 

Next address 


The control program returns exception codes in bytes +1 and 

+2 of the ECB. 
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The event control block (ECB) is used by the control program to 
test for completion of the read or write operation. The ECB is 
located in the first word of the DECB. 

The type, length, data control block address, area address, key 
address, block address, and next address information is taken 
from the operands of the macro instruction and placed in the 
DECB for use by the control program. For BISAM, exception codes 
are returned by the control program after the corresponding WAIT 
or CHECK macro instruction is issued, as indicated in Figure 7. 
For BDAM, BSAM, BPAM, and QSAM, the control program provides a 
pointer to the IOB containing the status indicators shown in 
Figure 13 on page 200. 


Exception 
Code Bit 
in DECB 

0 

1 

2 

3 

4 

5 

6 
7 

8-15 

Figure 7. 


READ 

WRITE 

Condition if On 

X 

Type K 

Record not found 

X 

X 

Record length check 


Type KN 

Space not found 

X 

Type K 

Invalid request 

X 

X 

Uncorrectable I/O 
error 

X 

X 

Unreachable block 

X 


Overflow record 1 


Type KN 

Duplicate record 



Reserved for 
control program use 


Exception Code Bits—BISAM 


1 The SYNAD exit routine is entered only if the CHECK macro is 
issued after the READ macro, and bit 0, 4, 5, or 7 is also 
on. 

Notes to Figure 7: 

Record Not Found: This condition is reported if the logical 
record with the specified key is not found in the data set, if 
the specified key is higher than the highest key in the highest 
level index, or if the record is not in either the prime area or 
the overflow area of the data set. 

Record Length Check: This condition is reported, for READ and 
update WRITE macro instructions, if an overriding length is 
specified and (1) the record format is blocked, (2) the record 
format is unblocked but the overriding length is greater than 
the length known to the control program, or (3) the record is 
fixed length and the overriding length does not agree with the 
length known to the control program. This condition is reported 
for the add WRITE macro instruction if an overriding length is 
specified. 

When blocked records are being updated, the control program must 
find the high key in the block in order to write the block. 

(The high key is not necessarily the same as the key supplied by 
the problem program.) The high key is needed for writing 
because the control unit for direct access devices permits 
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writing only if a search on equal is satisfied; this search can 
be satisfied only with the high key in the block. If the user 
were permitted to specify an overriding length shorter than the 
block length, the high key might not be read; then, a subsequent 
write request could not be satisfied. In addition, failure to 
write a high key during update would make a subsequent update 
impossible. 

Space Not Found for Adding a Records This condition is reported 
if no room exists in either the appropriate cylinder overflow 
area or the independent overflow area when a new record is to be 
added to the data set. The data set is not changed in any way 
in this situation. 

Invalid Request: This condition is reported for either of two 
reasons. First, if byte 25 of the data event control block 
indicates that this request is an update WRITE macro instruction 
corresponding to a READ (for update) macro instruction, but the 
input/output block (IOB) for the READ is not found in the update 
queue. This condition could be caused by the problem program 
altering the contents of byte 25 of the data event control 
block. Second, if a READ or WRITE macro instruction specifies 
dynamic buffering (that is, 'S* in the area address operand) but 
the DCBMACRF field of the data control block does not specify 
dynamic buffering. 

Uncorrectable Input/Output Error: This condition is reported if 
the control program's error recovery procedures encounter an 
uncorrectable error in transferring data. 

Unreachable Block: This condition is reported if an 
uncorrectable input/output error occurs while searching the 
indexes or following an overflow chain. It is also posted if 
the data field of an index record contains an improper address 
(that is, points to the wrong cylinder or track or is an invalid 
address). 

Overflow Record: This condition is reported if the record just 
read is an overflow record. (See the section on direct 
retrieval and update of an indexed sequential data set in Data 
Ad m i n i St tatiPn ... G y I de for considerations during BISAM updating.) 

Duplicate Record Presented for Inclusion in the Data Set: This 
condition is reported if the new record to be added has the same 
key as a record in the data set. However, if the delete option 
was specified and the record in the data set is marked for 
deletion, this condition is not reported. Instead, the new 
record replaces the existing record. 

If the record format is blocked and the relative key position is 
zero, the new record cannot replace an existing record that is 
of equal key and is marked for deletion. 
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Exception 

Code 

Code 

Set by 





Field 

Bit 

CLOSE 

GET 

PUT 

PUTX SETL 


Condition if On 

DCBEXCD1 

0 




Type 

K 

Record Not Found 


1 




Type 

I 

Invalid actual address 
for lower limit 


2 

X 





Space not found for 
adding a record 


3 




X 


Invalid request 


4 


X 




Uncorrectable input error 


5 

X 


X 

X 


Uncorrectable output 
error 


6 


X 


X 


Block could not be 
reached (input) 


7 

X 

X 




Block could not be 
reached (update) 

DCBEXCD2 

0 



X 



Sequence check 


1 



X 



Duplicate record 


2 

X 





Data control block 
closed when error 
routine entered 


3 


X 




Overflow record 1 


4 



X 



Incorrect record length 


5-7 






Reserved for future use 


Figure 8. Exception Code Bits—QISAM 


1 The SYNAD exit routine is entered only if bit 4, 5, 6, or 7 
of DCBEXCD1 is also on. 

Notes to Figure 8: 

Record Not Found: This condition is reported if the logical 
record with the specified key is not found in the data set, if 
the specified key is higher than the highest key in the highest 
level index, or if the record is not in either the prime area or 
the overflow area of the data set. 

Invalid Actual Address for Lower Limit: This condition is 
reported if the specified lower limit address is outside the 
space allocated to the data set. 

Space Not Found for Adding a Record: This condition is reported 
if the space allocated to the data set is already filled. In 
locate mode, a buffer segment address is not provided. In move 
mode, data is not moved. 

Invalid Request: This condition is reported if (1) the data set 
is already being referred to sequentially by the problem 
program, (2) the buffer cannot contain the key and the data, or 
(3) the specified type is not also specified in the DCBMACRF 
field of the data control block. 
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Uncorrectable Input Errors This condition is reported if the 
control program’s error recovery procedures encounter an 
uncorrectable error when transferring a block from secondary 
storage to an input buffer. The buffer address is placed in 
register 1, and the SYNAD exit routine is given control when a 
GET macro instruction is issued for the first logical record. 

Uncorrectable Output Errors This condition is reported if the 
control program's error recovery procedures encounter an 
uncorrectable error when transferring a block from an output 
buffer to secondary storage. If the error is encountered during 
closing of the data control block, bit 2 of DCBEXCD2 is set to 1 
and the SYNAD exit routine is given control immediately. 
Otherwise, control program action depends on whether load mode 
or scan mode is being used. 

If a data set is being created (load mode), the SYNAD exit 
routine is given control when the next PUT or CLOSE macro 
instruction is issued. In the case of a failure to write a data 
block, register 1 contains the address of the output buffer, and 
register 0 contains the address of a work area containing the 
first 16 bytes of the IOB; for other errors, the contents of 
register 1 are meaningless. After appropriate analysis, the 
SYNAD exit routine should close the data set or end the job 
step. If records are to be subsequently added to the data set 
using the queued indexed sequential access method (QISAM), the 
job step should be terminated by issuing an abend macro 
instruction. (Abend closes all open data sets. However, an 
ISAM data set is only partially closed, and it can be reopened 
in a later job to add additional records by using QISAM). 
Subsequent execution of a PUT macro instruction would cause 
reentry to the SYNAD exit routine, because an attempt to 
continue loading the data set would produce unpredictable 
results. 

If a data set is being processed (scan mode), the address of the 
output buffer in error is placed in register 1, the address of a 
work area containing the first 16 bytes of the IOB is placed in 
register 0, and the SYNAD exit routine is given control when the 
next GET macro instruction is issued. Buffer scheduling is 
suspended until the next GET macro instruction is reissued. 

Block Could Not Be Reached (Input): This condition is reported 
if the control program’s error recovery procedures encounter an 
uncorrectable error in searching an index or overflow chain. 

The SYNAD exit routine is given control when a GET macro 
instruction is issued for the first logical record of the 
unreachable block. 

Block Could Not Be Reached (Update): This condition is reported 
if the control program’s error recovery procedures encounter an 
uncorrectable error in searching an index or overflow chain. 

If the error is encountered during closing of the data control 
block, bit 2 of DCBEXCD2 is set to 1 and the SYNAD exit routine 
is given control immediately. Otherwise, the SYNAD exit routine 
is given control when the next GET macro instruction is issued. 

Sequence Check: This condition is reported if a PUT macro 
instruction refers to a record whose key has a smaller numeric 
value than the key of the record previously referred to by a PUT 
macro instruction. The SYNAD exit routine is given control 
immediately; the record is not transferred to secondary storage. 

Duplicate Record: This condition is reported if a PUT macro 
instruction refers to a record whose key duplicates that of the 
record previously referred to by a PUT macro instruction. The 
SYNAD exit routine is given control immediately; the record is 
not transferred to secondary storage. 
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Data Control Block Closed When Error Routine Entered: This 
condition is reported if the control program f s error recovery 
procedures encounter an uncorrectable output error during 
closing of the data control block. Bit 5 or 7 of DCBEXCD1 is 
set to 1 , and the SYNAD exit routine is immediately given 
control. After appropriate analysis, the SYNAD routine must 
branch to the address in return register 14 so that the control 
program can finish closing the data control block. 

Overflow Record: This condition is reported if the input record 
is an overflow record. 

Incorrect Record Length: This condition is reported if the 
length of the record as specified in the record-descriptor word 
CRDW) is larger than the value in the DCBLRECL field of the data 
control block. 


Exception 
Code Bit 

0 

1 

2 

3 

4 

5 

6 
7 
S 

9 

10 
11 

12 

13 

14 

15 


Figure 9. 


READ WRITE 


X 

X 

X 

X 

X 

X 


X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


Condition if On 
Record not found 
Record length check 
Space not found 

Invalid request—see bits 9-15 

Uncorrectable I/O error 

End of data 

Uncorrectable error 

Not read with exclusive control 

Not used 

WRITE to input data set 

Extended search with BCBLIMCT = 0 

Block or track requested was 
outside data set 

Tried to write capacity record 

Specified key as search argument 
when KEYLEN=Q or no key address 
supplied 

Request for options not in data 
control block 

Attempt to add fixed-length 
record with key beginning with 
hexadecimal FF 


Exception Code Bits—BDAM 


Notes to Figure 9s 

Record Not Found: This condition is reported if the search 
argument is not found in the data set. 
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Record Length Check* This condition occurs for READ and WRITE 
(update) and WRITE (add). For WRITE (update) variable-length 
records only, the length in the BDN does not match the length of 
the record to be updated. For all remaining READ and WRITE 

(update) conditions, the BLKSIZE, when s 3 f is specified in the 
READ or WRITE macro, or the length given with these macros does 
not agree with the actual length of the record. For WRITE 
(add), fixed-length records, the BLKSIZE, when f S f is specified 
in the WRITE macro, or the length given with this macro does not 
agree with the actual length of the record. For WRITE (add), 
all other conditions, no error can occur. 

j Space Wot Found for Adding a Record* This condition occurs if 

either there is no dummy record when adding an F-format record, 
or there is no space available when adding a V- or U-format 
record. 

Invalid Request* Occurs whenever one of the following bits is 
set to one: 

Bit Meaning 

9 A WRITE was attempted for an input data set. 

10 An extended search was requested, but IIMCT was zero. 

11 The relative block or relative track requested was not in 
the data set. 

12 Writing a capacity record CRO) was attempted. 

13 A READ or WRITE with key was attempted, but either KEYLEN 
equaled zero or the key address was not supplied. 

14 The READ or WRITE macro request options conflict with the 
OPTCD or MACRF parameters. 

15 A WRITE (add) with fixed length was attempted with the key 
beginning with X i FF'. 

Uncorrectable Input/Output Error* This condition is reported if 
the control program ? s error recovery procedures encounter an 
uncorrectable error in transferring data between real and 
secondary storage. 

End of Data* This only occurs as a result of a READ (type DI, 
DIF, or DIX) when the record requested is an end-of-data record. 

Uncorrectable error* Same conditions as for bit 4. 

Not Read with Exclusive Control* A WRITE, type DIX or DKX, has 
occurred for which there is no previous corresponding READ with 
exclusive control. 
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Register 

0 

0 


1 

2-13 

14 


15 

Figure 10. 


Appendix A. Status 


Bits Meaning 

0 Bit 9 = 1 indicates that bits 3-31 

hold the address of the key in error 
(only set for a sequence error). 

If bit 0 = 1 —■address of key that is 
out of sequence. If bit 0=0—address 
of a work area. 

1-7 Not used. 

8-31 Address of a work area containing 

the first 16 bytes of the I0B 
(after an uncorrectable 
input/output error caused by a 
GET, PUT, or PUTX macro instruction! 

original contents destroyed in other 

cases). If the error condition was 
detected before I/O was started, 
register 0 contains all zeros. 

0-7 Not used. 

8-31 Address of the buffer containing 

the error record (after an 
uncorrectable input/output error 
caused by a GET, PUT, or PUTX macro 
instruction while attempting to 
read or write a data record; in other 
cases, this register contains 0). 

0-31 Contents that existed before the 

macro instruction was issued. 

0-7 Not used. 

8-31 Return address. This address is 

either an address in the control 
program*s close routine (bit 2 of 
DCBEXCD2 is on), or the address of 
the instruction following the 
expansion of the macro instruction 
that caused the SYNAD exit routine to be 
given control (bit 2 of DCBEXCD2 is 
off). 

0-7 Not used. 

8-31 Address of the SYNAB exit routine. 

Register Contents on Entry to SYNAD Routine—QISAM 
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Register Bits Meaning 


0 0-7 Not used. 

8-31 Address of the first I0B sense 
byte. (Sense information is 
valid only when associated with 
a unit check condition.) 

1 0-7 Not used. 

8-31 Address of the DECB. 

2-13 0-31 Contents that existed before the 

macro instruction was issued. 

14 0-7 Not used. 

8-31 Return address. 

15 0-7 Not used., 

8-31 Address of the SYNAD exit routine. 

Figure 11. Register Contents on Entry to SYNAD Routine—BISAM 




c 
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Register 

0 


1 


2-13 

14 

15 

Figure 12. 


Bits Meaning 

0-7 Value to be added to the 

status indicators address to 
provide the address of +he 
first CCW (QSAM only). 

8-31 Address of the associated 

data event control block for 
BDAM, BPAM, and BSAM; address 
of the status indicators shown 
in Figure 13 for QSAM. 

0 Bit is on for error caused by 

input operation. 

1 Bit is on for error caused by 
output operation. 

2 Bit is on for error caused by 
BSP, CNTRL, or POINT macro 
instruction (BPAM AND BSAM only). 

3 Bit is on if error occurred 

during update of existing record 
or if error did not prevent 
reading of the record. Bit is 
off if error occurred during 
creation of a new record or if 
error prevented reading of the 
record. 

4 Bit is on if the request was 
invalid. The status indicators 
pointed to in the data event 
control block are not present 

(BDAM, BPAM, and BSAM only). 

5 Bit is on if an invalid character 
was found in paper tape conversion 
(BSAM and QSAM only). 

6 Bit is on for a hardware error 
(BDAM only). 

7 Bit is on if no space was found 

for the record (BDAM only). 

8-31 Address of the associated data 

control block. 

0-31 Contents that existed before the 
macro instruction was issued. 

0-7 Not used. 

8-31 Return address. 

0-7 Not used. 

8-31 Address of the error analysis 
routine. 

Register Contents on Entry to SYNAD Routine—BDAM, 

BPAM, BSAM, and QSAM 
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Offset From 
IDE Address 

Byte Bit Meaning Name 


+2 


+3 


0 Command reject 

1 Intervention required 

2 Bus-out check 

3 Equipment check 

4 Data check 

5 Overrun 

6,7 Device-dependent information; 
see the appropriate device 
manual 

0-7 Device-dependent information; 
see the appropriate device 
manual 


Sense byte 1 


Sense byte 2 


The following bytes make up the low-order seven bytes of 
the channel status words 


+9 — Command address 


+ 12 


+13 


+ 14 


0 Attention 

1 Status modifier 

2 Control unit end 

3 Busy 

4 Channel end 

5 Device end 

6 Unit check—must be on for 
sense bytes to be meaningful 

7 Unit exception 

0 Program-controlled interrupt 

1 Incorrect length 

2 Program check 

3 Protection check 

4 Channel data check 

5 Channel control check 

6 Interface control check 

7 Chaining check 

— Count field (2 bytes) 


Status byte 1 
(Unit) 


Status byte 2 
(Channel) 


Figure 13. Status Indicators for the SYNAD Routine—BDAM, BPAM, 
BSAM, and QSAM 


f .> 



Notes If the sense bytes are X f 10FE f / the control program has 
set them to this invalid combination because sense bytes could 
not be obtained from the device because of recurrence of unit 
checks. 

The event control block is used for communication between the 
various components of the system and between problem programs 
and the system. An event control block is the subject of WAIT 
and POST macro instructions. 
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Bytes and Hex. 

Offset Alignment Code Bit Dig. Description 

00 1 lOxx xxxx W—Waiting for completion of an event. 

1 3 Contains the address of the RB 

issuing the WAIT macro if the ECB 
has the WAIT bit on. Once the event 
has completed and the ECB is posted, 
the C bit is set with other bits in 
byte 0 and these 3 bytes C1—3) are 
zero, for all access methods 
except BDAM. Exception codes are 
returned in bytes 1 and 2 of the 
ECB for BDAM. 

00 Olxx xxxx C—The event has completed. 

One of the following completion codes 
will appear at the completion of a 
channel program: 

Access Methods other than BTAM 


0111 

1111 

7F 

Channel program has terminated without 
error. (CSW contents useful.) 

0100 

0001 

41 

Channel program 
permanent error. 

has terminated with 

(CSW contents useful.) 

0100 

0010 

42 

Channel program 
a direct access 
violated. (CSW 

has terminated because 
extent address has been 
contents do not apply.) 

0100 

0011 

43 

I/O abend condition occurred 


while loading the error recovery 
routine. (CSW contents do 
not apply.) 


0100 0100 44 Channel program has been intercepted 

because of permanent error associated 
with device end for previous request. 

You may reissue the intercepted 
request. (CSW contents do not apply.) 

0100 1000 48 Request element for channel program 

has been made available after it has 
been purged. (CSW contents do not apply.) 

0100 1011 4B One of the following errors occurred 

during tape error recovery processings 

• The CSW command address in 
the IOB was zeros. 

• An unexpected load point was 
encountered. (CSW contents do not 
apply in either case.) 

0100 1111 4F Error recovery routines have been 

entered because of direct access error 
but are unable to read home addresses 
or record 0. (CSW contents do not apply.) 


0101 0000 50 Channel program terminated with error. 

Input block was a DOS-embedded checkpoint 
record. (CSW contents do not apply.) 
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AP PE NDIX B« _ DATA MANAGEMENT MACRO INSTRUCTIONS AVAILABLE BY ACCESS METHOD 


zf' \ 
^_ ^ 


Macro Instruction 

EDAM 

BISAM 

SPAM 

BSAM 

QISAM 

QSAM 

BLDL 



X 




BSP 




X 



BUILD 

X 

X 

X 

X 

X 

X 

BUILDRCD 






X 

CHECK 

X 

X 

X 

X 



CHKPT 

X 

X 

X 

X 

X 

X 

CLOSE 

X 

X 

X 

X 

X 

X 

CNTRL 




X 


X 

DCB 

X 

X 

X 

X 

X 

X 

DCBD 

X 

X 

X 

X 

X 

X 

ESETL 





X 


FEOV 




X 


X 

FIND 



X 




FREEBUF 

X 

X 

X 

X 



FREEDBUF 

X 

X 





FREEPOOL 

X 

X 

X 

X 

X 

X 

GET 





X 

X 

GETBUF 

X 

X 

X 

X 



GETPOOL 

X 

X 

X 

X 

X 

X 

MSGDISP 

X 

X 

X 

X 

X 

X 

NOTE 



X 

X 



OPEN 

X 

X 

X 

X 

X 

X 

PDAB 






X 

PDABD 






X 

POINT 



X 

X 



PRTOV 




X 


X 

PUT 





X 

X 

PUTX 





X 

X 

READ 

X 

X 

X 

X 



RELEX 

X 






RELSE 





X 

X 

SETL 





X 


SETPRT 




X 


X 

STOW 



X 




SYNADAF 

X 

X 

X 

X 

X 

X 

SYNADRLS 

X 

X 

X 

X 

X 

X 

SYNCDEV 

X 

X 

X 

X 

X 

X 

TRUNC 






X 

WAIT 

X 

X 

X 

X 



WRITE 

X 

X 

X 

X 




XLATE 


X 


X 
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The following information provides a guide to coding the block 
size (BLKSIZE) and logical record length (LRECL) operands in the 
DCB macro instruction. These values can be used to determine 
the maximum block size and logical record length for a given 
device, and they can be used to determine the optimum blocking 
factor when records are to be blocked. 


Format F, V, or U records are accepted by readers and punches, 
but the logical record length for a card reader or card punch is 
fixed at 80 bytes. If the optional control character is 
specified, the logical record length is 81 (the control 
character is not part of the data record). If card image mode 
is used, the buffer required to contain the data must be 160 
bytes. 


BR1MIE&S 


The following table shows the record length that can be 
specified for the various printers. In some cases, two values 
are shown; except for the 3800, the larger of the two values 
requires that an optional feature be installed on the printer 
being used. If the optional control character is specified to 
control spacing and skipping, the record length is specified as 
one greater than the actual data length (the control character 
is not part of the data record). 

Printer Record Length 

1403 Printer 120 or 132 bytes 

3203 Printer 132 bytes 

3211 Printer 132 or 150 bytes 

3525 Card Punch, 

Print Feature 64 bytes 

3800 Printing Subsystem 136 bytes for 10 pitch 

163 bytes for 12 pitch 

204 bytes for 15 pitch 


MASM EI1C. J[ ARE..,U N IIS 


3480 Magnetic Tape Subsystem 32760 bytes 
(18 track) 


BIREiJ.J^C-ESS.J£m£5 

The following table shows the capacity of direct access devices 
by track, cylinder, and total capacity in bytes. 
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Device 


2305-2 

3330/3333 
(Model l) 3 

3330/3333 
(Model 11) 

3340/3344 4 

3350 

3375 

3380 (Models 
A04# AA4# and 
B04) 

3380 (Models 
AD4 and BD4) 

3380 (Models 
AE4 and BE4) 


1 Capacity indicated in bytes (when R0 is used by the IBM 
programming system). 

2 Excludes alternate cylinders. 

3 The Mass Storage System (MSS) virtual volumes assume the 
characteristics of the 3330/3333# Model 1. 

4 The 3344 is functionally equivalent to the 3340 Model 70. 

5 The largest record that can be written on a track for the 
3375 is 35616 and for all 3380 models is 47476. However# 
for these devices the largest block size supported by the 
standard access methods is 32760. 

6 This value is different from the maximum block size per 
track because each block on the track includes an overhead 
for this device. 

Each record written on a direct access device requires some 
* device overhead. f The term device overhead means the space 
required by the device for address markers# count areas# gaps 
between the count# key# and data areas# and gaps between blocks. 
The following calculations can be used to compute the number of 
bytes required for each data block including the space required 
for device overhead. Note that any fraction of a byte must be 
ignored. For example# if the calculation results in 15.644 
bytes# 15 bytes must be used to determine track capacity. 


Maximum Block 
Size/Track 
(Note 1) 

Tracks per 
Cylinder 

Number of 

Cylinders 
(Notes 1 and 2) 

Track 

Capacity 

(Bytes) 

14660 

8 

96 

14858* 

13030 

19 

404 

13165* 

13030 

19 

808 

13165* 

8363 

12 

696 

8535 6 

19069 

30 

555 

19254* 

32760* 

12 

959 

36000* 

32760* 

15 

885 

47968* 

32760* 

15 

885 

47968* 

32760* 

15 

1770 

47968* 


. -,y 


(f 
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Blocks 

Blocks 

Device 


With Keys 

Without Keys 

2305-2 


289+KL 1 +DL 2 

198+DL 

3330/3333 (Model 1 or 
ll) 3 

191+KL+DL 

135+Dl 

3340/3344 


242+KL+DL 

167+DL 

3350 


267+KL+DL 

185+DL 

3375 


224-K(KL+191)/32)C32)* 

((DL+X91)/32)(32) 

224+((DL+191)/32)(32) 

I 3380 (Models 

1 and B04) 

A04, AA4> 

256*K(Kt+267)/32)(32) + 
((DL+267)/32)(32) 

256+((DL+267)/32)(32) 

1 3380 (Models 

AD4 and BD4) 

256KCKL + 267)/32)C32) + 
C(DL+267)/32)(32) 

256+((DL+267)/32)(32) 

! 3380 (Models 

AE4 and BE4) 

256+CCKL+267)/32)(32)+ 

C(DL+267)/32)(32) 

256+((DL+267)/32)(32) 


1 KL is key length. 

2 DL is data length. 

3 The Hass Storage System (MSS) virtual volumes assume the 
characteristics of the 3330/3333/ Model 1. 

Hhen track overflow is used or variable-length spanned records 
are written# the size of a data block or logical record can 
exceed the capacity of a single track on the direct access 
device used. 
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The following shows the format and contents that must be 
supplied by the problem program when the EXLST operand is 
specified in a DCB macro instruction. The exit list must begin 
on a fullword boundary and each entry in the list requires one 
fulIword. 


Entry Type 

Hex 

Code 

3-Byte Address—Purpose 

Inactive entry 

00 

Ignore the entry; it is not active. 

Input header label exit 

01 

Process a user input header label. 

Output header label 
exit 

02 

Create a user output header label. 

Input trailer label 
exit 

03 

Process a user input trailer label. 

Output trailer label 
exit 

04 

Create a user output trailer label. 

Data control block exit 

05 

Take a data control block exit. 

End-of 1 -volume exit 

06 

Take an end-of-volume exit. 

JFC® exit 

07 

JFCB address for RDJFCB and OPEN TYPE=J SVCs. 


08 

Reserved. 


09 

Reserved. 

User totaling area 

0A 

Address of beginning of user's totaling area. 

Block count exit 

0B 

Take a block-count-unequal exit. 

Defer input trailer 
label 

oc 

Defer processing of a user input trailer label from 
end-of-data until closing. 

Defer nonstandard input 
trailer label 

0D 

Defer processing a nonstandard input trailer label 
on magnetic tape unit from end-of-data until 
closing (no exit routine address). 


0E-QF 

Reserved. 

FCB image 

10 

Define an FCB image. 

DCB abend exit 

11 

Examine the abend condition and select one of 
several options. 

QSAM parallel input 

12 

Address of the PDAB for which this DCB is a member. 


13-14 

Reserved. 

JFCBE exit 

15 

Take an exit during OPEN to allow user to examine 
JCL-specif!ed setup requirements for a 3800 
printer. 


16 

Reserved. 

QPEN/EOV nonspecific 
tape volume mount 

17 

Option to specify a tape volume serial number. 
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Entry Type 

Hex 

Code 

3-Byte Address—Purpose 


QPEN/EOV volume 
security/verification 

18 

Verify a tape volume and some security 

checks. 


19-7F 

Reserved. 


Last entry 

80 

Treat this entry as the last entry in 
This code can be specified with any of 
but must always be specified with the 

the list. 

the above 
last entry. 


The list can be dynamically shortened during execution by 
setting the high-order bit of the word to a value of 1, An 
entry in the list can be made inactive dynamically by setting 
the high-order byte of the word to a value of hexadecimal 00. 

When control is passed to an exit routine, the general registers 
contain the following information: 


Register Contents 

0 Variable; the contents depend on the exit routine 

used. 

1 The three low-order bytes contain either the address 

of the DCB currently being processed or, when certain 
exits are taken, the address of the exit parameter 
list. These exits are: usei—label exits CX 1 01 1 - 1 04*), 
deferred nonstandard input trailer exit (X*0D f ), and 
DCB abend exit (X'll 1 ). 

2-13 Contents prior to execution of the macro instruction. 

14 Return address (must not be altered by the exit 
routine). 

15 Address of the exit routine entry point. 

The conventions for saving and restoring registers are as 

follows: 

• The exit routine must preserve the contents of register 14. 
It need not preserve the contents of other registers. The 
control program restores registers 2 through 13 before 
returning control to the problem program. 

• The exit routine must not use the save area whose address is 
in register 13, because this area is used by the control 
program. If the exit routine calls another routine or 
issues supervisor or data management macro instructions, it 
must provide the address of a new save area in register 13. 

For a detailed description of each exit list processing option, 

see . 
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AEEBffllXJL_ CO NTR O L.C H ARACTERS 


Each logical record, in all record formats, can contain an 
optional control character. This control character is used to 
control stacker selection on a card punch or card read punch, or 
it is used to control printer spacing and skipping. If a record 
containing an optional control character is directed to any 
other device, it is considered to be the first data byte, and it 
does not cause a control function to occur. 

In format-F and format-U records, the optional control character 
must be in the first byte of the logical record. 

In format-V or format-D records, the optional control character 
must be in the fifth byte of the logical record, immediately 
following the record descriptor word of the record. 

Two control character options are available. A control 
character option is selected by coding the appropriate character 
in the RECFM operand of the DCB macro instruction. If either 
option is specified in the data control block, a control 
character must be included in each record, and other spacing or 
stacker selection options also specified in the data control 
block are ignored. 


MA G MM EJM PE 


The record format field in the data control block indicates that 
the machine code control character has been placed in each 
logical record. If the record is written, the appropriate byte 
must contain the command code bit configuration specifying both 
the write and the desired carriage or stacker select operation. 
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The machine code 

control characters for 

a printer are: 

Print — Then 


Act Immediately 

Act 

Action 

Without Printing 

X'01' 

Print only (no 
space) 


X' 09' 

Space 1 line 

X 1 0B 1 

X»ll» 

Space 2 lines 

X*13* 

X' 19 * 

Space 3 lines 

X 1 IB 1 

X'89 ’ 

Skip to channel 1 

X f 8B 1 

X'91' 

Skip to channel 2 

X f 93* 

X'99' 

Skip to channel 3 

X 1 9B 1 

X'Al' 

Skip to channel 4 

X f A3» 

X* A9' 

Skip to channel 5 

X 1 AB 1 

X'Bl' 

Skip to channel 6 

X'BS* 

X'B9» 

Skip to channel 7 

X 1 BB 1 

X'Cl' 

Skip to channel 8 

X 1 C3 1 

X'C9' 

Skip to channel 9 

X *CB 1 

X' D1' 

Skip to channel 10 

X'D3* 

X'D9» 

Skip to channel 11 

X 1 DB 1 

X' El' 

Skip to channel 12 

X 1 E3 1 

The machine code 
are as follows: 

control characters for 

a card read punch device 

Control Code 

Action 


X'01' 

Select stacker 1 


X'41' 

Select stacker 2 


X'5A' 1 

Change from line 
mode to page mode 


X'81' 

Select stacker 3 



1 The 3800 Model 3 all-points-addressable mode uses this code 
to change from compatibility to page mode. 

Other command codes for specific devices are contained in IBM 
System Reference Library publications describing the control 
units or devices. 


Appendix E. Control Characters 209 





I&Q£MSIZEIES-.C-PN T RQL -CHA R AC TE RS 


In place of machine code/ control characters defined by the 
International Organization for Standardization (ISO)/ American 
National Standards Institute (ANSI)/ or the Federal Information 
Processing Standards (FIPS) can be specified. These characters 
must be represented in EBCDIC code. 

International Organization for Standardization (ISO)/ American 
National Standards Institute (ANSI)/ or Federal Information 
Processing Standards (FIPS) control characters are as follows* 

Code Action before Printing a Line 

b Space one line (blank code) 

0 Space two lines 

Space three lines 

+ Suppress space 


1 

Skip 

to 

channel 

i 

2 

Skip 

to 

channel 

2 

3 

Skip 

to 

channel 

3 

4 

Skip 

to 

channel 

4 

5 

Skip 

to 

channel 

5 

6 

Skip 

to 

channel 

6 

7 

Skip 

to 

channel 

7 

8 

Skip 

to 

channel 

8 

9 

Skip 

to 

channel 

9 

A 

Skip 

to 

channel 

10 

B 

Skip 

to 

channel 

11 

C 

Skip 

to 

channel 

12 


Code Action after Punching a Card 

V Select punch pocket 1 

W Select punch pocket 2 

X'SA 11 Change from line mode to page mode 

1 The 3800 Model 3 all-points-addressable mode uses this code 
to change from compatibility to page mode. 

These control characters include those defined by ANSI FORTRAN. 
If any other character is specified/ it is interpreted as , b l or 
V/ depending on the device being used; no error indication is 
returned. 


S' \ 
V J 


(i ^ 

'w 
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AEEEMP I XJE, IC. F IE LP_. N AM E§ 


The following describes data control block fields that contain 
information that defines the data characteristics and device 
requirements for a data set. Each of the fields described shows 
the values that result from specifying various options in the 
DCB macro instruction. These fields can be referred to by the 
problem program through the use of a DCBD macro instruction that 
creates a dummy control section CDSECT) for the data control 
block. Fields that contain addresses are 4 bytes long and are 
aligned on a fullword boundary. If the problem program inserts 
an address into a field, the address must be inserted into the 
low-order 3 bytes of the field without changing the high-order 
byte. 

The contents of some fields in the data control block depend on 
the device and access method being used. A separate description 
is provided when the contents of the field are not common to all 
device types and access methods. 
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Offset 

26C1A) 

40(28) 

40(28) 

42C2A) 

45(2D) 
48(50) 


50(32) 


Bytes and Field 
Alignment Name 

2 DCBBSGRG 


1 . . . 

.1 .. 

• .1 . 

. , .X XX, . 
.... .. 1 . 
.. 1 


8 DCBDDNAM 


2. BCBTIOT 


2 BCBHACRF 


.3 


1 


. . 2 


DCBDEBA 


DCBOFLGS 

... 1 _ 

_ 1 . . . 

.. 0 . 


. . 1 . 


BCBMACR 
C Before 
OPEN) 


Description 

Data set organization. 

Code 

IS Indexed sequential. 

PS Physical sequential. 

DA Direct organization. 

Reserved bits. 

P0 Partitioned organization. 

U Unmovable—the data set contains 

location-dependent information. 

Eight-byte name of the data definition 
statement that defines the data set associated 
with this DCB. (Before DCB is opened.) 

(After DCB is opened.) Offset from the HOT 
origin to the TIQELNGH field in the HOT entry 
for the DD statement associated with this DCB. 

This field may only be referenced during 
and after OPEN. It is common to all uses 
of the DCB and is created by moving the 
BCBMACR field into this area. 

(After DCB is opened.) Address of the 
associated DEB. 

Flags used by open routine, 

OPEN has completed successfully. 

Set to 1 by problem program to indicate 
concatenation of unlike attributes. 

Set to 0 by an I/O support function when 
that function takes a user exit. It is 
set to 0 to inhibit other I/O support 
functions from processing this DCB. 

Set to 1 on return from the user exit to 
the I/O support function that took the exit. 

Macro instruction reference before OPEN. 

Major macro instructions and various options 
associated with them. Used by the open 
routine to determine access method. Used by 
the access method executes in conjunction 
with other parameters to determine which load 
modules are required. This field is moved to 
overlay part of DCBDDNAM at open time and 
becomes the DCBMACRF field. 

This field is common to all uses of the DCB# 
but each access method must be referenced for 

its meaning. 
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m /LC QMI R QL.BLO C K —PP AHf.B$AM r Q $AM 


Bytes and Field 

Offset Alignment Name Description 

20(14) 1 DCBBUFNO Number of buffers required for this data set. 

May range from 0 to a maximum of 255. 

21(15) .3 DCBBUFCB Address of buffer pool control block. 


24(18) 2 


DCBBUFL Length of buffer. May range from 0 to a 

maximum of 32760. 


32(20) 1 


32(20) 1 


33(21) .3 


DCBBFALN 

.xx 

.10 D 

.01 F 


Buffer Alignment* 

Reserved bits. 

Doubleword boundary. 

Fullword not a doubleword boundary, 
coded in the DCB macro instruction. 


DCBBFTEK 

.xxx 

. 1.0 .. 
.110 .. 


.010 


x. . . 


Buffering technique: 

Reserved bits. 

S Simple buffering. 

A QSAM locate mode processing of spanned 

records: OPEN is to construct a record 
area if it automatically constructs 
buffers. 

R BSAM create BDAM processing of unblocked 

spanned records: Software track 
overflow. OPEN forms a segment work 
area pool and stores the address of the 
segment work area control block in 
DCBECBW. However, WRITE uses a 
segment work area to write a record as 
one or more segments. 

BSAM input processing of unblocked 
spanned records with keys: Record offset 
processing. READ reads one record 
segment into the record area. The first 
segment of a record is preceded in the 
record area by the key. Subsequent 
segments are at an offset equal to the 
key length. 

Reserved bit. 


1 . . . 


XLRI being used to process a RECFM=DS or 
RECFM=DBS format tape data set (QSAM). 


DCBEODAD End-of-data address. Address of a 

user—provided routine to handle end-of-data 
conditions. 
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Bytes and Field 
Offset Alignment Name 

36(24) 1 DCBRECFM 


001 . 

10 . 

01 . 

11 . 

. .1 . 

. . .1 _ 

_ 1 . . . 


. 10 . 
. 01 . 
. 00 . 
.. .1 


37(25) .3 DCBEXLST 


Description 

Record format. 

Code 

D Format-D record. 

F Fixed record length. 

V Variable record length. 

U Undefined record length. 

T Track overflow. 

B Blocked records. May not occur with 

undefined (U). 

S Fixed length record format: Standard 

blocks. (No truncated blocks or 
unfilled tracks are embedded in the 
data set.) Variable length record 
format: Spanned records. 

A ISO/ANSI/FIPS control character. 

M Machine control character. 

No control character. 

Key length (KEYLEN) was specified 
in the DCB macro instruction. This 
bit is inspected by the Open to 
prevent overriding a specification 
of KEYLEN=Q by a nonzero specifi¬ 
cation in the JFCB or data set 
label. 

Exit list. Address of a usei—provided exit 

list control block. 


42(2A) 2 


50(32) ..2 


51(33) 


DCBMACRF 


DCBMACR 

(Before 

OPEN) 


Byte 1 

00 . 

. .1 . 

...X X..X 

. 1 .. 

. 1 . 

Byte 2 

00 . 

. .1 . 

_ 1 . . . 



Macro instruction reference after OPEN. 

Contents and meaning are the same as those of 
the DCBMACR field in the foundation segment 
before OPEN. 


Major macro instructions and various options 
associated with them. Used by the Open 
routine to determine access method. Used by 
the access method executes in conjunction 
with other parameters to determine which load 
modules are required. 


Code 


R 

P 

C 


MA M z zl.n.P.-ul 

Always zero for BSAM. 


READ 

Reserved bits. 

POINT (which implies NOTE). 
CNTRL 


BSAM—P.u.tpyt 
Always zero for BSAM. 

W WRITE 

L Load mode BSAM (create BDAM data 

set) . 

P POINT (which implies NOTE). 

C CNTRL 

BSAM create BDAM processing of 
unblocked spanned records, with 
BFTEK=R specified: The user*s program 
has provided a segment work area pool 
and stored the address of the segment 
work area control block in DCBEOBW. 
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Bytes and Field 

Offset Alignment Name Description 



Byte 

i 


QSAM—.Input 


50(32) 

0. . . 

• • • • 


Always zero for 

QSAM. 


.1. . 

.... 

G 

GET 



. .0. 

.... 


Always zero for 

QSAM. 


. . .1 

.... 

M 

Move mode. 



• • • • 

1. . . 

L 

Locate mode. 



• • • • 

. .1. 

C 

CNTRL 



.... 

. . .1 

D 

Data mode. 



Byte 

2 


3SAM— 


51(33) 

0. . . 

.... 


Always zero for 

QSAM. 


.1. . 

.... 

P 

PUT 



. .0. 

.... 


Always zero for 

QSAM. 


. . .1 

.... 

M 

Move mode. 



• • • • 

i... 

L 

Locate mode. 



t • • • 

. .i. 

C 

CNTRL 



.... 

.. .i 

D 

Data mode. 


50(32) 

Byte 

i 


£P.AM=InP.y± 



00. . 

.... 


Always zero for 

BPAM. 


. .1. 

• • • • 

R 

READ 



. • » • 

.1. . 

P 

POINT (which implies NOTE) 


. . .X 

x.xx 


Reserved bits. 


51(33) 

Byte 

2 


BPAM—Output 



00. . 

• • • • 


Always zero for 

BPAM. 


. .1. 

• • » • 

W 

WRITE 



.... 

.i. . 

P 

POINT (which implies NOTE) 


. . .X 

x.xx 


Reserved bits. 



DIRECT ACCESS STORAGE DEVICE INTERFACE 


Offset 

Bytes and 
Alignment 

Field 

Name 

Description 

16(10) 

1 

DCBKEYLE 

Key length of the data set. 

17(11) 

.1 

DCBDEVT 

Device type. 



0010 0111 
0010 1001 

0010 1101 
0010 1010 
0010 1011 
0010 1100 
0010 1110 

2305 Disk Storage Facility, Model 2. 
3330 Disk Storage, Model 1, or 

Mass Storage System (MSS) 
virtual volume. 

3330 Disk Storage, Model 11. 
3340/3344 Disk Storage. 

3350 Direct Access Storage. 

3375 Direct Access Storage. 

3380 Direct Access Storage. 
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MAGNETIC TAPE INTERFACE 


Bytes and Field 

Offset Alignment Name Description 


16(10) 1 


DCBTRTCH Tape recording technique for 7-track tape. 


0010 0011 
0011 1011 
0001 0011 
0010 1011 


Code 

E Even parity. 

T BCD/EBCDIC translation. 

C Data conversion. 

ET Even parity and translation. 


17(11) .1 


DCBDEVT Device type. 


18(12) ..1 


1000 

0011 

3400 

series magnetic tape unit. 


1000 

1000 

3480 

Magnetic Tape 

Subsystem 


DCBDEN 

Tape 

density—3400 

series magnetic 

tape 



units. 





Code 

7-track 

9-track 

18-track 

0100 

0011 

1 

556 BPI 

N/A 

N/A 

1000 

0011 

2 

800 BPI 

800 BPI 

N/A 

1100 

0011 

3 

N/A 

1600 BPI 

N/A 

1101 

0011 

4 

N/A 

6250 BPI 

N/A 


CARD READER* CARD PUNCH INTERFACE 


Bytes and Field 

« i _ 


Offset 

Alignment 

Name 


Description 

16(10) 

1 

DCBMODE,DCBSTACK 






Code 




1000 

.... 

c 

Column binary mode 



0100 

.... 

E 

EBCDIC mode. 



• • • # 

xxxx 


Stacker selection. 



• • • • 

0001 

1 

Stacker 1. 



• • • • 

0010 

2 

Stacker 2. 



.... 

0011 

3 

Stacker 3. 

17(11) 

.1 

DCBDEVT 

Device type. 



0100 

0001 

2540 

Card Reader 



0100 

0010 

2540 

Card Punch 



0100 

0100 

2501 

Card Reader 



0100 

0110 

3505 

Card Reader 



0100 

1100 

3525 

Card Punch 
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PRINTER INTERFACE 



Bytes and 

Field 



Offset 

Alignment 

Name 


Description 

16(10) 

1 

DCBPRTSP 

Number indicating normal printer spacing. 





Code 



0000 

0000 

0 No spacing. 



0000 

0001 

1 Space one line. 



0001 

0001 

2 Space two lines. 



0001 

1001 

3 Space three lines. 

17(11) 

.2 

DCBDEVT 

Device type. 



Byte 

0 




0100 

1000 

1403 Printer 



0100 

1001 

3211 Printer 



0100 

1011 

3203 Printer 



0100 

1110 

3800 Printing Subsystem 





Test-for-printer-overflow mask (PRTOV 
mask). If printer overflow is to be 
tested for, the PRTOV macro instruction 
sets the mask as follows: 



Byte 

1 

Code 



0010 

0000 

9 Test for channel 9 overflow. 



0001 

0000 

12 Test for channel 12 overflow. 

19(13) 

.. .1 

DCBPRBYT 




xxxx 

XX. . 

Reserved. 



.... 

. .11 

Bits to identify presently active table 


reference character when 3800 printer is 
operating under 0PTCD=J. 
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ACCESS METHOD INTERFACE 


BSAM, BPAM Interface 


(T>) 


Bytes and Field 
Offset Alignment Name 

52(34) 1 DCBOPTCD 


I. . . 
. 1 . . 


. . 1 . 


1 . . . 

. 1 . . 

. . 1 . 

.. .1 


57(39) .3 DCBSYNAD 


62(3E) .•2 DCBBLKSI 


72(48) 1 DCBNCP 


Description 
Option codes. 

Code 

W Write-validity check (DASD). 

U Allow a data check caused by an invalid 
character. (1403 printer with UCS 
feature.) 

Window processing requested. (MSS) 

B Treat EOF and EOV labels as EOV labels 

which allows SL or AL tapes to be read 
out of order. (Magnetic tape.) 

C Chained scheduling. 

Input Tape Files; Requests the 
testing for and bypassing of any 
embedded DOS checkpoint records 
encountered. (This code can only 
be specified in a JCL statement.) 

Q An ISCII/ASCII data set is 

to be processed. 

Z Magnetic tape devices: Use reduced 

error recovery procedure. 

T BSAM only; user totaling. 

J Specifies that the first data byte 

in the output data line will be a 
3800 table reference character for 
dynamic selection of character sets. 

Address of user f s synchronous error 
routine to be entered when a permanent 
error occurs. 

Maximum block size. Maximum value: 32760. 

The maximum block size for Version 3 ISO/ANSI/FIPS 
is 2048. An attempt to process from a Version 
3 tape results in a label validation installation 
exit being taken. 

For fixed-length blocked record format, it 
must be a multiple of the length given in 
DCBLRECL. For variable-length records, this 
must include the 4-byte block length field. 

For more information about ISO/ANSI/FIPS 
spanned records, see 

D a Aa-..Admi n i gtra ii. on .. g uid. g > 

Number of channel programs. Number of 
READ or WRITE requests that may be issued 
prior to a CHECK. Maximum number* 99. 
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Offset 

Bytes and 
Alignment 

Field 

Name 

Description 

80(50) 

1 

DCBUSASI/ 

DCBLBP 

ISCII/ASCII tape. 

Block prefix. 



.1. 

Block prefix is a 4-byte field containing 
the block length. 

81(51) 

.1 

DCBBUFOF 

Block prefix length. 

82(52) 

. .2 

DCBLRECL 

Logical record length. For fixed-length 


blocked record format, the presence of 
DCBLRECL allows BSAM to read truncated 
records. For undefined records, this field 
contains block size. 
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QSAM Interface 


Bytes and Field 
Offset Alignment Name 

52(34) 1 DCBOPTCD 


1 . . . 

. 1 . . 


. . 1 . 
. . .1 


1 . . . 

. 1 . . 

. . 1 . 
. . .1 


57(39) .3 DCBSYNAD 

62(3E) ..2 DCBBLKSI 


80(50) 1 


DCBUSASI/ 

DCBLBP 

.1 . 


Description 

Option codes. 

Code 

W Write-validity check (DASD). 

U Allow a data check for an invalid 

character. (1403 printer with UCS 
feature.) Window processing requested. 

(MSS) 

B Treat EOF and EOV labels as EOV 

labels^ which allows SL or AL tapes 
to be read out of order (magnetic 
tape). 

C Chained scheduling. 

H Input Tape Files: Requests the 

testing for and bypassing of any 
embedded DOS checkpoint records 
encountered. (This code can only 
be specified in a JCL statement.) 

Q An ISCII/ASCII data set is to 

be processed. 

Same as DCBOPTQ. BSAM only. 

Z Magnetic tape devices. Use reduced 

error recovery procedure. 

T User totaling. 

J Specifies that the first data byte in 

the output data line will be a 3800 
table reference character. 

Address of the user's synchronous error 
routine to be entered when a permanent error 
occurs. 

Maximum block size. Maximum value: 32760. 

The maximum block size for Version 3 ISO/ANSI/FIPS 
is 2048. An attempt to process from a Version 
3 tape results in a label validation installation 
exit being taken. 

For fixed-length blocked record format/ 
it must be a multiple of DCBRECL. For 
variable-length records this must include 
the 4-byte block length field provided by 
the access method. 

ISCII/ASCII tape. 

Block prefix. 

Block prefix is a 4-byte field containing 
the block length. (BUF0FF=L was specified). 


81(51) .1 


DCBBUF0F Block prefix length. 
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Bytes and Field 

Offset Alignment Name Description 

82(52) ..2 DCBLRECL Format-F records* Record length. 

Format-U records: Block size. 

Format-V records — 

• Unspanned record format — 

GET: PUTX; record length. 

PUT: Actual or maximum record length. 

• Spanned record format — 

Locate mode — 

— GET* Segment length. 

- PUT: Actual or minimum segment 
length. 

Logical record interface — 

- Before OPEN: Maximum logical record 
length. 

— After GET* Record length. 

— Before PUT: Actual or maximum 
record length. 

— ISO/ANSI/FIPS spanned record format 
with XLRI; length of the record area 
in 1 K 1 units (1024). 

Move mode — 

- GET: Record length. 

— PUT: Actual or maximum record 
length. 

• Data mode^ GET — 

Data records up to 32752 bytes: Data 
length. 

Data records exceeding 32752 bytes* 

- Before OPEN: X'8000 1 

— After OPEN* Data length. 

• Output mode, PUTX (output data set)* 

Segment length. 

84(54) 1 DCBEROPT Error option. Disposition of permanent errors 

if the user returns from a synchronous error 
exit (DCBSYNAD)/ or if the user has no 
synchronous error exit. 




100. 

010. 

001. 

... X xxxx 

ACC: Accept. 

SKP * Skip. 

ABE* Abnormal end of task. 

Reserved bits. 

85(55) 

3 

DCBCNTRA 

Address of CNTRL module. 

88(58) 

2 


Reserved. 

90(5A) 

2 

DCBPRECL 

Block length/ maximum block length/ 
data length. 

92(50 

4 

DCBE0B 

Address of end of block module. 
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Bytes and 

Field 



Offset 

Alignment 

Name 

Description 


16(10) 

1 

DCBKEYLE 

Key length. 


17(11) 

.1 

DCBDEVT 

Device type. 




0000 0111 

2305 Disk Storage Facility, 

Model 2. 



0000 1001 

3330 Disk Storage, Model 1, 
Mass Storage System (MSS) 
virtual volume. 

or 



0000 1101 

3330 Disk Storage, Model 11 

, 



0000 1010 

3340 Disk Storage. 




0000 1011 

3350 Direct Access Storage. 




0010 1100 

3375 Direct Access Storage. 




0010 1110 

3380 Direct Access Storage, 

all models. 

20(14) 

1 

DCBBUFNO 

Number of buffers required 
0-255. 

for this data set* 

21(15) 

.3 

DCBBUFCB 

Address of buffer pool control block. 

24(18) 

2 

DCBBUFL 

Length of buffer: 0 - 32760 

bytes. 

32(20) 

1 

DCBBFALN 

Buffer alignment* 



33(21) .3 

36(24) 1 


37(25) 

42(2A) 


DCBEODAD 


DCBRECFM 


10 . . 
01 . . 
11 . . 
. . 1 . 
. . .1 


1 . 


. 10 . 
. 01 . 
. 00 . 
. . .1 


DCBEXLST 

DCBMACRF 


Code 


.... 

. .XX 


Reserved 

bits. 

.... 

. .10 

D 

Doubleword boundary. 

. . . . 

. .01 

F 

Fullword 
coded in 

not a doubleword boundary, 
the DCB macro instruction. 

. . . . 

. .11 

F 

Fullword 
coded in 

not a doubleword boundary, 
the DD statement. 


Address of a usei—provided routine to handle 
end-of-data conditions. 

Record format. 


Code 

F 

V 

U 

T 

B 


A 

M 


Fixed length records. 

Variable length records. 

Undefined length records. 

Track overflow. 

Blocked records. May not occur with 
undefined (U). 

Standard records. No truncated blocks 
or unfilled tracks are embedded in the 
data set. 

ISO/ANSI/FIPS control character. 

Machine control character. 

No control character. 

Key length (KEYLEN) was specified in 
the DCB macro instruction; this bit is 
inspected by the open routine to prevent 
overriding a specification of KEYLEN=0 
by a nonzero specification in the JFCB 
or data set label. 


Exit list. Address of a usei—provided list. 

Macro instruction reference after OPEN* 

Contents and meaning are the same as those 
of the DCBMACR field before OPEN. 
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Bytes and Field 
Offset Alignment Name 

50(32) ..2 DCBMACR 


50(32) 

51(33) 

50(32) 

51(33) 

52(34) 1 

53(35) .1 

54(36) ..1 

55(37) ...1 


Byte 1 

00.0 0 ... 

. .1. 

.1. . 

.1. 

.x 

Byte 2 
00.0 0000 
. .1 . 

Byte 1 

0 . 0 . . 0 .. 

.1 . 

. . .1 _ 

_ 1. . . 

.... ..xx 

Byte 2 

1 . 

.1 . 

. .0 . 

. . .1 _ 

_ 1 . . . 

. . . . .1.. 

.1. 

. 1 

DCBOPTCD 


1 . 

.1 . 

. .1 . 

. . .1 _ 

_ 1 . . . 

.1. 

.1 

.x. . 

DCBMAC 


xxxx . . .x 

_ 1 ... 

. 1 .. 

.1. 

DCBNTM 


DCBCYLOF 


Description 

Macro instruction reference before OPEN* 
specifies the major macro instructions and 
various options associated with them. Used 
by the Open routine to determine access 
method. Used by the access method executors 
in conjunction with other parameters to 
determine which load modules are required. 


Code 


R 

S 

C 


W 


G 

M 

L 


S 

P 

M 

L 

U 

K 

I 


SIMM 

Always zero for BISAM. 
READ 

Dynamic buffering. 
CHECK 

Reserved bit. 

M-S-AM 

Always zero for BISAM. 
WRITE 


SIMM 

Always zero for QISAM. 


GET 

Move mode of GET. 
Locate mode for GET. 
Reserved bits. 


3 ISAM 

SETL 

PUT or PUTX. 


Always zero for QISAM. 
Move mode of PUT. 
Locate mode of PUT. 


Update in place (PUTX). 
SETL by key. 

SETL by ID. 


Option codes: 


Code 

W Write-validity check. 

U Full-track index write. 

M Master indexes. 

I Independent overflow area. 

Y Cylinder overflow area. 

L Delete option. 

R Reorganization criteria. 

Reserved bit. 


Extension of the DCBMACRF field for ISAM. 

Code 

Reserved bits. 

U Update for read. 

U Update type of write. 

A Add type of write. 

Number of tracks that determines the 
development of a master index. 

Maximum permissible value: 99. 

The number of tracks to be reserved on each 
prime data cylinder for records that overflow 
from other tracks on that cylinder. To 
determine how to calculate the maximum number* 
see the section on allocating space for an 
ISAM data set in Dat a . Ad m i n is t nai io p 
Guide- 
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Bytes and Field 

« i j__i_ _ 


offset 

Alignment 

Name 

Description 

56(38) 

4 

DCBSYNAD 

Address of user*s synchronous error routine 
to be entered when uncorrectable errors are 
detected in processing data records. 

60(30 

2 

DCBRKP 

Relative position of the first byte of the 
key within each logical record. Maximum 
permissible value: logical record length 
minus key length. 

62(3E) 

. .2 

DCBBLKSI 

Block size. 

64(40) 

4 

DCBMSWA 

Address of the storage work area reserved for 
use by the control program when new records 
are being added to an existing data set. 

68(44) 

2 

DCBSMSI 

Number of bytes in area reserved to hold the 
highest level index. 

70(46) 

2 

DCBSMSW 

Number of bytes in work area used by control 
program when new records are being added to 
the data set. 

72(48) 

1 

DCBNCP 

Number of copies of the READ-HRITE (type K) 
channel programs that are to be established 
for this data control block (99 maximum). 

73(49) 

.3 

DCBMSHI 

Address of the storage area holding the 
highest level index. 

80(50) 

1 

DCBEXCD1 

First byte in which exceptional conditions 
detected in processing data records are 
reported to the user. 



1. 

.1. 

. .1. 

. . .1 _ 

_ 1. . . 

.1. . 

.1. 

.1 

Lower key limit not found. 

Invalid device address for lower limit 
(QISAM only). Record length check (BISAM only). 
Space not found. 

Invalid request. 

Uncorrectable input error. 

Uncorrectable output error (BISAM only). 

Block could not be reached (BISAM only). 

Block could not be reached (input) (QISAM only). 
Overflow record (BISAM only). 

Block could not be reached (update) (QISAM only) 
Duplicate record (BISAM only) 

81(51) 

.1 

DCBEXCD2 

Second byte in which exceptional conditions 
detected in processing data records are 
reported to the user (QISAM only). 



1. 

.1. 

. .1. 

. . .1 _ 

_ 1. . . 

.XXX 

Sequence check. 

Duplicate record. 

DCB closed when error was detected. 

Overflow record. 

PUT: length field of record larger than 
length indicated in DCBLRECL. 

Reserved bits. 

82(52) 

. .2 

DCBLRECL 

Logical record length for fixed-length record 
formats. Variable-length record formats: 
maximum logical record length or an actual 
logical record length changed dynamically 
by the user when creating the data set. 
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Bytes and 
Offset Alignment 

197(C5) .1 


Field 

Name 


Description 


DCBOVDEV 

Device type for independent 

overflow 

0000 

0111 

2305 Disk Storage Facility, 

Model 2. 

0000 

1001 

3330 Disk Storage, Model 1, 

or 

0000 

1101 

Mass Storage System (MSS) 
virtual volume. 

3330 Disk Storage, Model 11 


0000 

1010 

3340/3344 Disk Storage. 


0000 

1011 

3350 Direct Access Storage. 


0010 

1100 

3375 Direct Access Storage. 


0010 

1110 

3380 Direct Access Storage. 
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MEftJC MTEQ.LJLflfflS=BBAM 


Offset 

Bytes and 
Alignment 

Field 

Name 

Description 

16(10) 

1 

DCBKEYLE 

Key length. 

17(11) 

.3 

DCBREL 

Number of relative tracks or blocks in this 
data set. 

20(14) 

1 

DCBBUFNO 

Number of buffers required for this data set 
May range from 0 to 255. 

21(15) 

.3 

DCBBUFCB 

Address of buffer pool control block or of 
dynamic buffer pool control block. 

24(18) 

2 

DCBBUFL 

Length of buffer. May range from 0 to 32760. 

32(20) 

1 

DCBBFALN 

Buffer alignment: 


. .XX 
. .10 
. .01 

. .11 


Reserved bits 
Doubleword boundary. 

Fullword not a doubleword boundary# coded in 
the DCB macro instruction. 

Fullword not a doubleword boundary# coded in 
the DD statement. 

Reserved bits. 


32(20) 1 


36(24) 1 


37(25) .3 


DCBBFTEK 

c .x. 

. . 1 . 


DCBRECFM 


Buffering technique. 

Reserved bit. 

R Unblocked spanned records: 

Variable spanned record format. 

Open forms a segment work area pool. 

The number of segment work areas 
is determined by DCBBUFNO (OPEN 
stores the address of the segment 
work area control block in DCBDYNB 
if dynamic buffering is not 
used or in the dynamic buffer pool 
control block (see DCBBUFCB) if 
dynamic buffering is used. WRITE uses 
a segment work area to write a record 
as one or more segments. READ uses a 
segment work area to read a record that 
was written as one or more segments. 

Record format. 


10 . . 
01 . . 
11 . . 
. . 1 . 

. . .1 


1 . . . 
. 00 . 
. . .1 


DCBEXLST 


Code 

F Fixed record length. 

V Variable record length. 

U Undefined record length. 

T Track overflow. 

B Blocked (allowed only with V). 

S Spanned (allowed only with V). 

Always zeros. 

Key length (KEYLEN) was specified in 
the DCB macro instruction. This bit 
is inspected by the open routine to 
prevent overriding a specification of 
KEYLEN = G by a nonzero specification 
in the JFCB or data set label. 

Exit list. Address of a user-provided exit 
list control block. 
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Bytes and Field 

Offset Alignment Name Description 

42(2A) ..2 DCBMACRF Macro instruction reference after OPEN. 

Contents and meaning are the same as 
DCBMACR before OPEN. 


50(32) ..2 DCBMACR Macro instruction reference before OPEN: 

major macro instructions and various options 
associated with them that will be used. 



Byte 

1 

Code 

50(32) 

00. . 

.... 



. .1. 

.... 

R 


. . .1 

.... 

K 


.... 

1. . . 

I 


.... 

.1. . 

S 



. .1. 

X 


.... 

. . .1 

c 


Byte 

2 

Code 

51(33) 

00. . 

• •II 



. .1. 


W 


. . .1 

• • • • 

K 


• • • • 

1. . . 

I 


.... 

• x. . 



.... 

. .1. 

A 


.... 

. . .1 



Always zero for BDAM. 

READ 

Key segment with READ. 

ID argument with READ. 

System provides area for READ (dynamic 
buffering). 

Read exclusive. 

CHECK macro instruction. 


Always zero for BDAM. 

WRITE 

Key segment with WRITE. 

ID argument with WRITE. 

Reserved bit. 

Add type of WRITE. 

Unblocked spanned records, with 
BFTEK=R specified and no dynamic 
bufferings The user*s program 
has provided a segment work area 
pool and stored the address of 
the segment work area control 
block in DCBDYNB. 


52(34) 1 


DCBOPTCD Option codes: 



Code 

W Write-validity check. 

Track overflow. 

E Extended search. 

F Feedback. 

A Actual addressing. 

Dynamic buffering. 

Read exclusive. 

R Relative block addressing. 


56(38) 

A 

DCBSYNAD 

Address of SYNAD (synchronous 
routine. 

error) 

62(3E) 

. .2 

DCBBLKSI 

Maximum block size. 


81(51) 

.3 

DCBLIMCT 

Number of tracks or number of relative blocks 
to be searched (extended search option). 
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APPENDIX St _EBABB-3YMBQLI C -FI EUL N A ME? 


The following describes PDABD fields of the dummy control 
section generated by the PDABD macro instruction. Included are 
the names, attributes, and descriptions of the dummy control 
section. The use of any of the symbolic names provided by the 
dummy section should be preceded by a USING instruction 
specifying IHAPDAB and a dummy section base register containing 
the address of the actual parallel data access block. 


IHAPDAB 

PDANODCB 

PDABD 

DSECT 

DS 

H 

Number of DCB addresses in list 

PDAMAXCB 

DS 

H 

Maximum number of addresses allowed 

PDAGRTNA 

DS 

A 

Address of parallel GET routine 

PDADCBAI 

DS 

F 

DCB address increment 

PDADCBLA 

DS 

A 

Address of last DCB entry 

PDADCBEP 

DS 

A 

Address of DCB entry last processed 

PDAECBIX 

DS 

F 

Index to ECB list 

PDADCBAL 

EQU 

X 

Start of DCB list 



228 


MVS/XA Data Administrations Macro Instruction Reference 








GLOSSARY OF TERMS AND ABBREVIATIONS 


The following terms are defined as they 
are used in this book. If you do not 
find the term you are looking for, refer 
to the index or to the IBM Vocabulary 

f g Ji-JBaia JLr.Qfi e . ss ip su .I e 1 es&m mu ni gatipjis.i. 

an d . P .. f flc. e. S.ys. terns* GC20-1699. 

ABE. abnormal end (value of EROPT) 

ABEND, abnormal end (macro instruction) 

ABSTR. absolute track (value of SPACE) 

ACC. accept erroneous block (value of 
EROPT) 

access method. A technique for moving 
data between main storage and 
input/output devices. 

address marker. A byte of data on a 
disk or diskette, used to identify the 
data field and ID field in the record. 

AFF. affinity (channel separation 
parameter of DD statement or unit 
affinity value of UNIT) 

AL. American National Standard Labels 
(Value of LABEL). 

alias. (1) An alternate label. For 
example, a label and one or more aliases 
may be used to refer to the same data 
element or point in a computer program. 
(2) An alternate name for a member of a 
partitioned data set. 

ANSI. American National Standards 
Institute 

ASCII. American National Standard Code 
for Information Interchange 

AUL. American National Standard user 
labels (value of LABEL) 

auxiliary storage. Data storage other 
than virtual storage; for example, 
storage on magnetic tape or direct 
access devices. 

basic access technique. Any access 
method in which input/output statement 
causes a corresponding machine 
input/output operation to occur. 

Contrast with queued access technique. 

BCD. binary coded decimal 

BCDIC. binary coded decimal interchange 
code 

BDAM. basic direct access method 
BDW. block descriptor word 


BFALN. buffer alignment (operand of 
DCB) 

BFTEK. buffer technique (operand of 
DCB) 

BISAN. basic indexed sequential access 
method 

BLDL. build list (macro instruction) 

BLKSIZE. block size (operand of DCB) 

block prefix. An optional variable 
length field that may precede unblocked 
records or blocks of records in ASCII on 
magnetic tapes. 

block size. (1) The number of records, 
words, or characters in a block. (2) A 
measure of the size of a block, usually 
specified in units such as records, 
words, computer words, or characters. 

blocking. The process of combining two 
or more records into one block. 

BPAN. basic partitioned access method 

BPI. bits per inch 

BSAM. basic sequential access method 

BSM. backspace past tapemark and 
forward space over tapemark (operand of 
CNTRL) 

BSP. backspace one block (macro 
instruction) 

BSR. backspace over a specified number 
of blocks (operand of CNTRL). 

BUFCB. buffer pool control block 
(operand of DCB) 

buffer. An area of storage that is 
temporarily reserved for use in 
performing an input/output operation, 
into which data is read or from which 
data is written. 

buffer pool. An area of storage in 
which all buffers of a program are kept; 
the buffers are built in extents chained 
together. 

BUFL. buffer length (operand of DCB) 

BUFNO. buffer number (operand of DCB) 

BUFOFF. buffer offset (length of ASCII 
block prefix by which the buffer is 
offset; operand of DCB) 

CCHH. The cylinder head record that 
gives the DASD location. 
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CCW. channel command word 

channel program. One or more channel 
command words that control a specific 
sequence of data channel operations. 
Execution of the specific sequence is 
initiated by a single start I/O 
instruction. 

CNTRL. control (macro instruction) 

CONTXG. contiguous space allocation 
(value of SPACE) 

control character. A character whose 
occurrence in a particular context 
initiates^ modifies/ or stops a control 
operation. It may be recorded for use in 
a subsequent action/ and may have a 
graphic representation in some 
circumstances. 

control program. A routine/ usually 
part of an operating system/ that aids 
in controlling the operations and 
managing the resources of a computer 
system. 

CSW. channel status word 
CVOL. See OS CVOL. 

cylinder. (1) In a disk pack/ the set 
of all tracks with the same nominal 
distance from the axis about which the 
disk pack rotates. (2) The tracks of a 
disk storage device that can be accessed 
without repositioning the access 
mechanism. 

CYLOFL. number of tracks for cylinder 
overflow records (operand of DCB) 

D. format-D (ISCII/ASCII 
variable-length) records (value of 
RECFM) 

DA. direct access (value of DEVD or 
DSORG) 

DASD. See direct access storage device 

data control block. A control block 
used by access method routines in 
storing and retrieving data. 

data conversion. The process of 
changing data from one form of 
representation to another. 

data definition (DD) statement. A job 
control statement that describes a data 
set associated with a particular job 
step. 

data extent block. An extension of the 
data control block that contains 
information about the physical status of 
the data set being processed. 

data set. The major unit of data 
storage and retrieval in the operating 
system/ consisting of data in a 
prescribed arrangement and described by 


control information to which the system 
has access. As used in this publication/ 
a collection of fixed- or 
variable-length records in auxiliary 
storage. 

data set control block. A data set 
label for a data set in direct access 
storage. 

data set label. A collection of 
information that describes the 
attributes of a data set and is normally 
stored on the same volume as the data 
set. 

DAU. direct access unmovable data set 
(value of DSORG) 

DB. ISCII/ASCII variable-length/ 
blocked records (value of RECFM) 

DBS. ISCII/ASCII variable-length, 
blocked spanned records (value of RECFM) 

DCB. See data control block (control 
block name/ macro instruction/ or 
parameter on DD statement) 

DCBD. data control block dummy section 
(macro instruction) 

DD. data definition 

DEB. See data extent block 

DECB. data event control block 

DEN. magnetic tape density (operand of 
DCB) 

dequeue. To remove items from a queue. 
Contrast with enqueue. 

DEVD. Device-dependent (operand of DCB) 

direct access storage device. A device 
in which the access time is effectively 
independent of the location of the data. 

direct data set. A data set whose 
records are in random order on a direct 
access volume. Each record is stored or 
retrieved according to its actual 
address or its address according to the 
beginning of the data set. Contrast 
with sequential data set. 

directory. (1) A table of identifiers 
and references to the corresponding 
items of data. (2) An index that is 
used by a control program to locate one 
or more blocks of data that are stored 
in separate areas of data set in direct 
access storage. 

DZSP. data set disposition (parameter 
of DD statement) 

doubleword. A contiguous sequence of 
bits or characters that comprises two 
computer words and is capable of being 
addressed as a unit. 
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DS. ISCII/ASCII variable-length, 
spanned records (value of RECFM) 

DSCB. See data set control block 

DSECT. See dummy control section. 

DSORG. data set organization (operand 
of DCB) 

dummy control section. A control 
section that an assembler can use to 
format an area of storage without 
producing any object code. 

dynamic allocation. The allocation of a 
data set or volume by the use of the 
data set name or volume serial number 
rather than by the use of information 
contained in a JCL statement. 

dynamic buffering. (1) A dynamic 
allocation of buffer storage, 

(2) Allocation of storage for buffers as 
they are needed for incoming data during 
program execution. 

EBCDIC. extended binary coded decimal 
interchange code 

enqueue. To place items on a queue. 
Contrast with dequeue. 

entry point. (1) The address or the 
level of the first instruction executed 
upon entering a computer program, a 
routine, or a subroutine. A computer 
program, a routine, or a subroutine may 
have a number of different entry points, 
each perhaps corresponding to a 
different function or purpose. (2) In a 
routine, any place to which control can 
be passed. 

EODAD. End-of-data set exit routine 
address (operand of DCB) 

EOF. end-of-file 

EOV. end-of-volume 

EROPT. error options (operand of DCB) 

ESETL. end sequential retrieval (QISAM 
macro instruction) 

EXCP. execute channel program (macro 
instruction) 

exit list. A control block that 
contains the addresses of routines that 
receive control when specified events 
occur during execution; for example, 
routines that handle session 
establishment request processing or I/O 
errors. 

EXLST. See exit list (operand of DCB) 

F. fixed-length records (value of 
RECFM) 

FB. fixed-length, blocked records 
(value of RECFM) 


FBS. fixed-length, blocked, standard 
records (value of RECFM) 

FBT. fixed-length, blocked records with 
track overflow option (value of RECFM) 

FOB. forms control buffer 

FEOV. force end-of-volume (macro 
instruction) 

FIPS. Federal Information Processing 
Standard 

flag. (1) Any of various types of 
indicators used for identification, for 
example, a wordmark. (2) A character 
that signals the occurrence of some 
condition, such as the end of a word. 

format-D. ISCII/ASCII or ISO/ANSI/FIPS 
variable-length records 

format-F. Fixed-length records 

format-U. Undefined-length records 

format-V. Variable-length records 

FS. fixed-length, standard records 
(value of RECFM) 

FSM. forward space past tapemark and 
backspace over tapemark (operand of 
CNTRL) 

FSR. forward space over a specified 
number of blocks (records) (operand of 
CNTRL) 

GCR. group coded recording (tap® 
recording mode) 

generation data group. A collection of 
data sets that are kept in chronological 
order; each data set is called a 
generation data set. 

generation data set. One of a 
collection of historically related 
non-VSAM data sets; the collection of 
these data sets is known as a generation 
data group. 

GL. GET macro, locate mode (value of 
MACRF) 

GM. GET macro, move mode (value of 
MACRF) 

HA. home address 

halfword. A contiguous sequence of bits 
or characters that comprise half a 
computer word and is capable of being 
addressed as a unit. 

head. A device that reads, writes, or 
erases data on a storage medium, for 
example, a small electromagnet used to 
read, write, or erase data on magnetic 
drum or magnetic tape, or the set of 
perforating, reading, or marking devices 
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used for punching, reading, or printing 
on perforated tape. 

header label. (1) An internal label, 
immediately preceding the first record 
of a file, that identifies the file and 
contains data used in file control> 

(2) The label or data set label that 
precedes the data records on a unit of 
recording media. 

home address. An address written on a 
direct access volume, denoting a track®s 
address relative to the beginning of the 
volume * 

IBG. Inter-block gap 

IGF catalog. integrated catalog 
facility catalog 

INOUT* input then output (operand of 
OPEN) 

integrated catalog facility (IGF). The 

name of the catalog associated with the 
Data Facility Product licensed program. 

internal storage. Storage that is 
accessible by a computer without the use 
of input/output channels. 

I/O. input/output 

IOB. input/output block 

IPL. initial program load 

XRG* interrecord gap 

IS. indexed sequential (value of DSORG) 

ISAM. indexed sequential access method 

1SCXI. International Standard Code for 
Information Interchange 

ISO. International Organization for 
Standardization 

ISU. indexed sequential unmovable 
(value of DSORG) 

JCL. job control language 

JFCB. job file control block 

JFCBE* job file control block extension 

K. 1024 (bytes) 

key. One or more consecutive characters 
taken from a data record, used to 
identify the record and establish its 
order with respect to other records. 

KEYLEN. key length (operand of BOB) 

locate mode. A way of providing data by 
pointing to its location instead of 
moving it. 

logical record* (1) A record from the 
standpoint of its content, function, and 


use rather than its physical attributes; 
that is, one that is defined in terms of 
the information it contains. (2) A unit 
of information normally pertaining to a 
single subject; a logical record is that 
user record requested of or given to the 
data management function. 

LPA. link pack area 

LPALIB. link pack area library 

LRECL. logical record length (operand 
of DCB) 

LRX. logical record interface 

M. machine control code (value of 
RECFM) 

MACRF. macro instruction form (operand 
of DCB) 

master catalog. A key-sequenced data 
set with an index containing extensive 
data set and volume information required 
to locate data sets, to allocate and 
deallocate storage space, to verify the 
authorization of a program or operator 
to gain access to a data set, and to 
accumulate usage statistics for data 
sets. 

member. A partition of a partitioned 
data set. 

HOD. modify data set (value of DISP) 

move mode. A transmittal mode in which 
the record to be processed is moved into 
a user work area. 

MSHX. main storage for highest-level 
index (operand of DCB) 

MSS. IBM 3850 Mass Storage System 

HSVG* Mass Storage Volume Control 

MSWA. main storage for work area 
(operand of DCB) 

NCP. number of channel programs 
(operand of DCB) 

non-VSAM data set. A data set created 
and accessed using one of the following 
methods: BDAM, BPAM, BSAM, QSAM, QISAM. 

NOPWREAB. No password required to read 
a data set (value of LABEL) 

NRZX. non-ret urn-* to-zero-inverted (tape 
recording mode) 

NSl. nonstandard label (value of LABEL) 

NTH. number of tracks in cylinder index 
for each entry in lowest level of master 
index (operand of DCB) 

operand. Information entered with a 
command name to define the data on which 
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a command operates and to control the 
execution of the command. 

operating system. Software that 
controls the execution of programs; an 
operating system may provide services 
such as resource allocation, scheduling, 
input/output control, and data 
management. 

QPTCB. optional services code (operand 
of DCB) 

OS CV0L# operating system control 

volume 

GUTIN* output then input (operand of 
OPEN) 

partitioned data set. A data in direct 
access storage that is divided into 
partitions, called members, each of 
which can contain a program, part of a 
program , or data. Synonymous with 
program library. 

password. A unique string of characters 
stored in a catalog that a program or a 
computer operator at the console must 
supply to meet security requirements 
before the program gains access to a 
data set. 

PCI. program-controlled interruption 

PDAB* parallel data access block 

PDS. partitioned data set 

PE. phase encoding (tape recording 
mode) 

physical record. One or more logical 
records, or occasionally, a part of one 
logical record read into or written from 
main storage as a unit. 

PL. PUT macro, locate mode (value of 
HACRF) 

PH. PUT macro, move mode (value of 
HACRF) 

PO. partitioned organization (value of 
DSORG) 

pointer. An address or other indication 
of location. 

POU. partitioned organization unmovable 
(value of DSORG) 

problem program. Any program that is 
executed when the processing unit is in 
the problem state; that is, any program 
that does not contain privileged 
instructions. This includes 
IBM-distributed programs, such as 
language translators and service 
programs, as well as programs written by 
a user. 

PRTSP. printer line spacing (operand of 
DCB) 


PS. physical sequential (value of 
DSORG) 

PSU. physical sequential unmovable 
(value of DSORG) 

QXSAM. queued indexed sequential access 
methods 

QSAM. queued sequential access method 

queued access technique. Any access 
method that synchronizes the transfer of 
data between the computer program using 
the access method and input/output 
devices, thereby minimizing delays for 
input/output operations. 

RACF. See Resource Access Control 
Facility. 

RDBACK. read backward (operand of OPEN) 

RDW. record descriptor word 

RECFM. record format (operand of DCB) 

record. A collection of related data or 
words, treated as a unit; for example, 
in stock control, each invoice could 
constitute one record. 

register. An internal computer 
component capable of storing a specified 
amount of data and accepting or 
transferring this data rapidly. 

relative address. An address expressed 
as a difference with respect to a base 
address. 

Resource Access Control Facility. A 
licensed program that provides for 
access control by identifying and 
verifying users to the system 
authorizing access to DASD data sets, 
logging detected unauthorized attempts 
to enter the system, and logging 
detected accesses to protected data 
sets. 

RKP. relative key position (operand of 
DCB) 

RLSE. release unused space (DD 
statement) 

RPS. rotational position sensing 

save area. An area of main storage in 
which the contents of registers are 
saved. 

scheduling. The ability to request that 
a task set should be started at a 
particular time interval or on 
occurrence of a specified PI interrupt. 

SDW. segment descriptor word 

secondary space. An area of direct 
access storage space which is allocated 
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after the primary space originally 
allocated has been exhausted. 

sequential data set* A data set whose 
records are organized on the basis of 
their successive physical positions, 
such as on magnetic tape. Contrast with 
direct data set. 

SER. volume serial number (value of 
VOLUME) 

serialization* In MVS, the prevention 
of a program from using a resource that 
is already being used by an interrupted 
program until the interrupted program is 
finished using the resource. 

SETL* set lower limit of sequential 
retrieval (QISAM macro instruction) 

SF* sequential forward (operand of READ 
or WRITE) 

SK. skip to a printer channel (operand 
of CNTRL) 

SKP* skip erroneous block (value of 
EROPT) 

SL» IBM standard labels (value of 
LABEL) 

SMSI* size of main-storage area for 
highest-level index (operand of DCB) 

SMSW. size of main-storage work area 
(operand of DCB) 

SP. space lines on a printer (operand 
of CNTRL) 

spooling* (1) The use of auxiliary 
storage as a buffer to reduce processing 
delays when transferring data between 
peripheral equipment and the processors 
of a computer. (2) The reading of input 
data streams and the output of data 
streams on auxiliary storage devices, 
concurrently with job execution, in a 
format convenient for later processing 
or output operations. 

SS* select stacker on card reader 
(operand of CNTRL) 

substitute mode* A transmittal mode 
used with exchange buffering on which 
segments are pointed to, and exchanged 
with, user work areas. 

subtask* (1) A task that is initiated 
and terminated by a higher order task. 
(2) A task that is restricted from 
communication with an operator device. 

SUL* IBM standard and user labels 
(value of LABEL) 

SVC* supervisor call 

SVCLXB* supervisor call library 


SYNAD* synchronous error routine 
address (operand of DCB) 

3YSIN* system input stream 

SYSOUT* system output stream 

system residence volume. The volume on 
which the nucleus of the operating 
system and the highest level index of 
the catalog are located. 

T. track overflow option (value of 
RECFM); user-totaling (value of OPTCD) 

TIOT* task 1/0 table 

trailer label* A file or data set label 
that follows the data records on a unit 
of recording media. 

TRC. table reference character 

TRTCH. track recording technique 
(operand of DCB) 

TSO. Acronym of time sharing option. 

TTR. Acronym of track record. 

U. undefined length records (value of 
RECFM) 

UCS. universal character set 

UHL. user header label 

user catalog* A catalog used in the 
same way as the master catalog, but 
optional and pointed to by the master 
catalog, and also used to lessen the 
contention for the master catalog and to 
facilitate volume portability. 

UTL. user trail m" label 

V. format-V (variable-length) records 
(value of RECFM) 

VB. variable-length, blocked records 
(value of RECFM) 

VBS. variable-length, blocked, spanned 
records (value of RECFM) 

virtual I/O (VIO). A facility that 
pages data into and out of external page 
storage; to the problem program, the 
data to be read from or written to 
direct access storage devices. 

volume* (1) A data carrier that is 
mounted and demounted as a unit, for 
example, a reel of magnetic tape, a disk 
pack. (2) That portion of a single unit 
of storage that is accessible to a 
single read/write mechanism, for 
example, a drum, a disk pack, or a part 
of a disk module. 

volume table of contents* A table on a 
direct access volume that describes each 
data set on the volume. 


y y 
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VS* variable-length, spanned records 


VTOC* volume table of contents 

XLRI* extended logical record interface 


VSAM catalog* virtual storage access 
method catalog 
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A-type address constant 
defined 5 

abbreviations 229-235 
ABEND macro 
BDAM 32 
BPAM 44 
BSAM 58 

list format 206-207 
QSAM 83 

absexp defined 5 

absolute expression defined 5 

access methods 

general description 
BDAM 29 
BISAM 37 
BPAM 42 
BSAM 48 
QISAM 64 
QSAM 72 

macro instructions used with 176 
acronyms 229-235 
ACSMETH operand 

SYNADAF macro 166 
actual device addressing 
BDAM 34 
QISAM 68 

adding data to a data set 


BDAM 

33, 184 

BISAM 

39, 181 

BPAM 

183 

BSAM 

183, 184 

QISAM 

98 

QSAM 

99 


address feedback 

current block position 130 
next block position 131 
address of buffers 

obtained from a pool 102 
returned to a pool 95, 96 
addressing, types of (BDAM) 34 
aids, coding 2-3 

alias names in a directory 162-163 
alignment of buffers 
BDAM 29 
BISAM 37 
BPAM 42 
BSAM 49 
QISAM 64 
QSAM 73 

ANSI control characters 
BPAM 46 
BSAM 61 
QSAM 87 

argument, search 
BDAM 34 
QISAM 67 
ASCII data sets 
block prefix 
BSAM 51 
QSAM 76 

restriction 51, 76 
block size 
BSAM 50 
QSAM 75 


buffer length 
BSAM 51 
QSAM 76 

restriction on record format 
BSAM 61 
QSAM 87 

ASCII translation routines 
check routine 19 
get routine 99 
put routine 127 
write routine 183 
XLATE macro 189 


associated 

data 

sets 

closing 

21 


opening 

111 


specifyi 

ng 


BSAM 

55, 

57 

QSAM 

80, 

81 


ATTACH macro 

relationship with BLDL macro 8 
automatic buffer pool construction 
BDAM 29 
BISAM 37 
BPAM 42 
BSAM 48 
QISAM 64-66 
QSAM 72 

automatic checkpoint restart 20 
automatic error options 
See EROPT 

automatic volume switching 
FEOV macro 92 




backspacing 

BSP macro 11 
CNTRL macro 26 
backward read 

open option 112 
read operation 135 
base registers 

dummy sections 89 
macro instructions 5 
basic direct access method 
See BDAM 

basic partitioned access method 
See BPAM 

basic sequential access method 
See BSAM 

BDAM (basic direct access method) 
general description 29 
macro instructions used with 202 
symbolic field names in DCB 226-227 
BFALN operand (DCB macro) 

BDAM 29 
BISAM 37 
BPAM 42 
BSAM 49 
QISAM 64 
QSAM 73 

BFTEK operand (DCB macro) 

BDAM 30 
BSAM 49 
QSAM 74 
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BISAM (basic indexed sequential access 
method) 

general description 37 
macro instructions used with 202 
symbolic field names in DCB 222-225 
BLPL macro 

description 8-10 
reason codes 10 
return codes 10 
use by access method 202 
used with FINP 93 
BLKSIZE operand (DCB macro) 

BDAM 30 
BPAM 42-43 
BSAM 49 
QISAM 64-65 
QSAM 74-75 
block 

backspacing by 11 
count exit 
BSAM 58 

list format 206 
QSAM 83 

data control 29 
data event control 190 
descriptor word, relationship with 
BLKSIZE operand 43, 50, 65, 75 
BUFOFF operand 51, 76 
LRECL operand 67 
event control 190, 200 
positiori feedback 121, 179 
positioning with POINT 121-122 
prefix 

See also BUFOFF operand 
effect oti block length 50 
effect on buffer length 51, 76 
effect on data alignment 49, 73 
reading 130-136 
size 

See BLKSIZE operand 
writing 178-185 
block size for SYS0UT data sets 
See also BLKSIZE operand 
BSAM 50 
QSAM 75 
blocking 

data checks (UCS printer) 149 
records 

BDAM 29, 35 
BPAM 42, 46 
BSAM 61 
QISAM 70 
QSAM 87-88 
boundary alignment 
See BFALN operand 

BPAM (basic partitioned access method) 
general description 42 
macro instructions used with 202 
symbolic field names for DCB 213-219 
BSAM (basic sequential access method) 
general description 48 
macro instructions used with 202 
symbolic field names for DCB 211-216 
BSP macro 

description 11 
reason codes 12 
return codes 12 
use by access method 202 
BUFCB operand (DCB macro) 

BDAM 30 
BISAM 37 
BPAM 50 
BSAM 50 
QISAM 65 


QSAM 75 
relationship to 

GETBUF macro 102 
GETPOOL macro 103 

buffer 

alignment 

See BFALN operand 
control 

using FREEBUF macro 95 
using FREEDBUF macro 96 
using FREEPOOL macro 97 
using GETBUF macro 102 
using GETPOOL macro 103 
using RELSE macro 141 
forms control 

using SETPRT macro 144 
length 

See also BUFL operand 
BUILD macro 14 
BUILDRCD macro 15 
for ASCII data sets 51, 76 
for card image mode 51, 76 
GETPOOL macro 103 
message format (SYNADAF macro) 168 
pool construction 

See also BUFCB operand 
automatic (see BUFNO operand) 1 
using BUILD macro 13-14 
using BUILDRCD macro 15-16 
using GETPOOL macro 103 
releasing 

using FREEBUF macro 95 
using FREEDBUF macro 96 
using FREEPOOL macro 97 
using RELSE macro 141 
using SYNADRLS macro 169 
specifying number 
See BUFNO operand 
buffering 

dynamic 96 

problem program controlled 
BISAM 37 
BSAM 48 
simple 73-74 

specifying 30, 49-50, 73-74 
variable-length spanned record 
BDAM 30 
BSAM 50 
QSAM 74 

using BUILDRCD macro 15-16 
BUFL operand (DCB macro) 

BDAM 31 
BISAM 38 
BPAM 43 
BSAM 50 
QISAM 65 
QSAM 76 

BUFNO operand (DCB macro) 

BDAM 31 
BISAM 38 
BPAM 43 
BSAM 51 
QISAM 65-66 
QSAM 76 

relationship to CNTRL macro 26 
relationship to NQK operand 38 
BUFOFF operand (DCB macro) 

BSAM 51-52 
QSAM 76 
BUILD macro 

description 13-14 
relationship to 

BFALN operand 29 
BUFCB operand 30 
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BUFL operand 31 
BUFNO operand 31 
use by access method 202 
BUILDRCD macro 
description 

execute form 18 
list form 17 
standard form 13-14 
relationship to 

BUFL operand 76 
BUFNO operand 73 
GET macro 100 
PUT macro 128 
TRUNC macro 175 
use by access method 202 
BURST operand CSETPRT macro) 145, 157, 
159 


m 


capacity record CRO) 
relationship with 
READ macro 131 
WRITE macro 178, 184 
card codes 
BSAM 54 
QSAM 79 
card image 

buffer length required 51, 76 
defined 54, 79 
card punch 54, 79 
card reader 55, 79 
carriage control channel 
CNTRL macro 26-28 
PRTOV macro 123-124 
carriage control characters 
CNTRL macro 26-28 
machine 208-209 
PRTOV macro 123-124 
chained scheduling 
BPAM 46 
BSAM 60 
QSAM 85 

changing partitioned data set member 
name 162-163 
channel 

carriage control 

See carriage control channel 
overflow 123-124 
programs, number of 
BISAM 40 
BPAM 45 
BSAM 59 

character arrangement table 
specifying use of 145-146 
character set code 
1403 printer 149 
3203 printer 149 
3211 printer 149 
CHARS operand (SETPRT macro) 146 
CHECK macro 

description 19 
relationship to 

end of data (E0DAD) 44, 57 
MACRF operand 33 
operations (NCP) 40, 45, 59 
POINT macro 122 
READ macro 130, 133, 135, 137 
WRITE macro 178, 181, 183, 184 
return of exception codes 191-199 
use by access method 202 


checking, write-validity 
BDAM 35 
BPAM 46 
BSAM 61 
QISAM 69 
QSAM 86 

checkpoint records, embedded (DOS) 
CNTRL macro 26 
POINT macro 121 
CHKPT macro 

use by access method 202 
CLOSE macro 

execute form 25 
list form 24 
MVS/370 compatibility 23 
relationship to 

BUILDRCD macro 16 
FREEPOOL macro 97 
POINT macro 121 
PUT macro 128 
SETL macro 142 
standard form 21-23 
TYPE=T 22 

use by access method 202 
CNTRL macro 

description 26-28 
restrictions 26 
specified in MACRF operand (DCB 
macro) 

BSAM 59 
QSAM 84 

use by access method 202 
codes 

See also card codes 

See also completion codes 

See also control characters 

See also conversion 

See also exception code 

See also return codes 

card 

BSAM 54 
QSAM 79 
completion 

See code, return 
control character 

See control characters 
conversion 

ASCII to EBCDIC 19, 99, 189 
EBCDIC to ASCII 183, 189 
XLATE macro 189 
exception 191-199 
return 

BLDL macro 10 
BSP macro 12 
FIND macro 93 
MSGDISP macro 108 
NOTE macro 110 
POINT macro 122 
RELEX macro 140 
SETPRT macro 150-154 
STOW macro 163-165 
SYNADAF macro 167 
SYNADRLS macro 169 
WRITE macro 186 

coding 

aids 2-3 

macro instructions 1-7 
registers as operands 5 
column, binary 

See also card image 
eliminate mode, read column 
BSAM 54, 56 
QSAM 80 
compatibility 
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MVS/XA with MVS/370 23, 114 

completion codes 
BLDL macro 10 
BSP macro 12 
FIND macro 93 
MSGDISP macro 108 
NOTE macro 110 
POINT macro 122 
RELEX macro 140 
STOW macro 163-165 
SYNADAF macro 167 
SYNADRLS macro 169 
WRITE macro 186 
completion testing of I/O 
operations 19, 176 
condition, exception 190-199 
construct 

a buffer pool 

See buffer pool construction 
a data control block 
See DCB macro 

a DECB (data event control 
block) 190 

contents of registers on entry to 
exit list 207 
SYNAD 197-199 
control 

characters 208-209 
I/O device 26-28, 123 
page format 123-124 
printer (3800) 144-149 

releasing 

buffer (FREEBUF macro) 95 
buffer pool (FREEPOOL macro) 97 
data block (RELEX macro) 140 
dynamically acquired buffer 96, 

179 

QSAM buffer (RELSE macro) 141 
requesting 

buffer (GETBUF macro) 102 
data block 103 

control blocks 1, 24, 133-137 
buffer pool 

See BUFCB operand 

data 

See DCB macro 
data event 190 
event 200 
control characters 
CNTRL macro 26-28 
ISO/ANSI/FIPS 210 
machine 208 
PRTOV macro 123-124 
specifying for 
BPAM 46 
BSAM 62 
QSAM 87 
control section 
See DCB macro 
COPIES operand 

in SETPRT macro 
modifying 149 
specifying 146 
copy modification module 
specifying 148 

COPYNR operand in SETPRT macro 
modifying 149 
count exit, block 
BSAM 58 

format list 206 
QSAM 83 
cylinder 

index 68 
overflow area 66 


cylinder overflow 
DCB macro 66 

CYL0FL operand (DCB macro) 66 




D-format records 
BSAM 61 
QSAM 87 

DASD (direct access storage devices) 
capacity 203-205 
considerations with 
BSP macro 11 
CLOSE macro 21, 22 
POINT macro 121-122 
interface in DCB 215 
data block 

exclusive control of 130 
locating with POINT macro 121-122 
release of exclusive control 140 
retrieving 98-101, 130-137 
writing 125-129, 178-185 
data check 

blocking and unblocking 60, 86, 148 
restriction with CNTRL macro 26 
data control block 
See DCB 

data control block (DCB) 

DCBNCRHI field 40 
symbolic references to 211-227 
data definition (DD) statement 
See DD statement 
data event control block 
See DECB 

data extent block 
See DEB 

data management 

parameter list 24, 116 
data mode processing 
GET macro 84, 100 
PUT macro 85, 128 
data prtotection image 
See DPI 
data set 

block size for SYSOUT 50, 75 
closing 21-23 
connecting to 111-115 
disconnecting from 21-23 
disposition at close 22 
opening 111-115 
organization 

See DSORG operand 
temporary closing 22-23 
types 

See access methods 
data translation 

See code conversion 
data transmittal modes 
data 84, 100, 128 
locate 98, 99, 125, 127-128 
move 98, 100, 125, 128 
specified in DCB 84 
data, end of 

See EODAD operand 
DCB (data control block) 
completing 111 
construction 

See DCB macro 
DCBBLKCT field 27 
DCBEXCD1 field 190 
DCBEXCD2 field 190 
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DCBLRECL field 127 
DCBOFLGS field 114 

description 

See DCB macro 
dummy section for 89-90 
exit list 

See EXLST operand 

special options with BLDL macro 8-10 
DCB ABEND exit 
BDAM 32 
BPAM 44 
BSAM 58 

list format 206-207 
QSAM 83 
DCB macro 

BDAM 29-36 
BISAM 37-41 
BPAM 42-47 
BSAM 48-63 
QISAM 71 
QSAM 72-88 

use by access method 202 
DCB open exit routine 

relationship to OPTCD operand 34# 61 
restriction with BUILDRCD macro 15 
DCB operands 
description 

See DCB macro 

symbolic names for 211-227 
DCBD macro 

description 89-90 
use by access method 202 
DD statement 

See also DDNAME operand 
NOTE macro 109 
OPEN macro 111-113 
POINT macro 121 
relationship to data control 
block 1# 109# 111# 113# 121 
DDNAME operand (DCB macro) 

BDAM 32 
BISAM 38 
BPAM 44 
BSAM 52 
QISAM 66 
QSAM 77 

DEB (data extent block) 
validity checking 111 
deblocking records 
BDAM 29# 35 
BPAM 46 
BSAM 61 
QISAM 70 

DECB (data event control block) 
construction 138# 187 
description 190 
exception code 190-199 
modifying with execute form 139# 188 
requirement with CHECK macro 19 
requirement with FREEDBUF macro 96 
delete option 

description 69 
DEN operand (DCB macro) 

BSAM 53 
QSAM 77 

density# recording 
See BEN operand 
descriptor word 
block 


BPAM 43 

BSAM 50# 51# 137 
QISAM 65# 67 
QSAM 75# 76 

record 

BSAM 51 
QISAM 65# 67 
QSAM 83 

segment 50 # 137 
DEVD operand (DCB macro) 

BSAM 52-57 
DCBD macro 90 
QSAM 77-82 

device addressing# types of (BDAM) 34 
device capacities 203-205 
device types in a dummy section 90 
direct data set 

See BDAM data set 
direct search option 
BSAM 61 
QSAM 86 

directory# partitioned data set 

obtaining contents with BLDL 8-10 
operations performed by STOW 
macro 162-163 
search by FIND macro 93 
DISP option 

See disposition option 
disposition option 
CLOSE macro 22 
OPEN macro 113 

requirement for extending an ISAM 
data set 109 

DOS (Disk Operating System) 
embedded checkpoint records 
CNTRL macro 26 
DOS/OS interchange feature# 
specifying 61# 86 
POINT macro 121 
doubleword alignment 
See BFALN operand 
DPI (data protection image) 
for BSAM 55# 56 
for QSAM 80# 81 
DSECT statement 

DCB symbolic names 211 
DSORG operand (CHECK macro) 19 
DSORG operand (DCB macro) 44 
BDAM 32 
BISAM 38 
BPAM 44 
BSAM 57 
QISAM 66 
QSAM 82 

dummy control section 
DCBD macro 89-90 
PDABD macro 120 
used for DCB 211 
dummy data block (BDAM) 184-185 
dummy key 184 
dynamic buffering 

effect on buffer length 31# 37 
effect on number of channel 
programs 40 

requesting in READ macro 131# 133 
requesting in WRITE macro 179# 181 
returning buffer to the pool 96# 179 
specified in BDAM DCB 34 
specified in BISAM DCB 40 
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EE 

EBCDIC (extended binary coded decimal 
interchange code) 

ASCII translation 
check routine 19 
DCB optibn 60,85 
GET routine 99 
put routine 127 
write routine 183 
XLATE macro 189 

ECB (event control block) 190, 200 
ECB operand 

WAIT macro 176 
ECBLIST operand 
WAIT macro 176 
eliminate mode, read column 
BSAM 56 
QSAM 80 

embedded checkpoint records (DOS) 

CNTRL macro 26 
POINT macro 121 
end-of"data 

See EODAD operand 
end-of-data routine 
See EODAD routine 

end-of-file on magnetic tape, ignoring 
BSAM 61 
QSAM 86 

end-of-sequential retrieval 
See ESTEL 
end-of-volume 
exit 

BSAM 58 
QSAM 83 

forced (FEGW macro) 92 
entry 

to exit routine 206 
to SYNAD exit routine 190 
EODAD (end-of-data) routine 
with BSP macro 11 
with CHECK macro 19 
with CNTRL macro 26 
with FEOV macro 92 
with GET macro 98, 101 
with POINT macro 122 
EODAD operand (DCB macro) 

BPAM 44 
BSAM 57 
QISAM 66 
QSAM 82 

EROPT (automatic error options) operand 
(DCB macro) 82~83 
ERP (error recovery procedure) 

BSAM 61 
QSAM 86 

error analysis, I/O 
exception codes 
BDAM 195 
BISAM 191 
QISAM 193 
register contents 
BDAM 199 
BISAM 198 
BPAM 199 
BSAM 199 
QISAM 197 
QSAM 199 
relationship with 
CHECK macro 19 
CNTRL macro 27-28 
DCB macro 61, 86 


GET macro 98, 101 
POINT macro 122 
PUT macro 126, 128 
PUTX macro 129 
SETL macro 143 
SYNADAF macro 166 
specifying in DCB macro 
BDAM 36 
BISAM 41 
BPAM 47 
BSAM 61 
QISAM 71 
QSAM 88 

status indicators 
BDAM 200 
BPAM 200 
BSAM 200 
QISAM 190 
QSAM 200 
error codes 

See return codes 
error conditions 

while opening a data set 115 
error exits 

CHECK macro 19 
CNTRL macro 27-28 
DCB macro 61, 86 
GET macro 98, 101 
POINT macro 122 
PUT macro 126, 128 
PUTX macro 129 
SETL macro 143 
SYNADAF macro 166-167 
error option operand (QSAM) 82 
error recovery 
procedure 

for tape 61, 86 

ESETL (end~of-sequential retrieval) 
macro 

relationship to 
SETL macro 142 

ESETL (end-of-sequential-retrieval) 
macro 

description 91 
relationship to 
GET macro 98 

ESTEL (end-of-sequential retrieval) 

macro 

use by access method 202 
event control block 
See ECB 
open 

See DCB open exit routine 
exception code 190-199 
exclusive control of data block (BDAM) 
releasing of 179 
requesting of 130 
specified in DCB 34 
EXCP macro 

relationship with SYNADAF macro 166 
execute form 

BUILDRCD macro 18 
CLOSE macro 25 
OPEN macro 118 
READ macro 139 
SETPRT macro 159-161 
WRITE macro 188 
exit routine 

See also EXLST operand 
block count 58, 83 
data control block 
See EXLST operand 
end-of-data 

See EODAD operand 
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end-of-Volume 58, 83 
error analysis 

See error exits 
FCB image 58 , 83 

list format 206 
user labeling 58, 83 
user totaling 58, 83 
EXLST operand CDCB macro) 

BDAM 32 
BISAM 38 
BPAM 44 
BSAM 57 

list format 206 
QISAM 67 
QSAM 83 
expressions 

absolute Cabsexp) 5 
relocatable Crelexp) 5 
EXTEND operand (OPEN macro) 112 
extended binary coded decimal 
interchange code 
See EBCDIC 

extended logical record interface 
See XLRI 

extended search option 
LIMCT operand 33 
OPTCD operand 34 


F 


F-format records 

See RECFM operand 
FCB (forms control buffer) 
image 

defining 58, 83 
operand (SETPRT macro) 146 
feedback 

block position 130, 179 
next address 131 
FEOV macro 

use by access method 202 
use of 92 
file, end of 

See end-of-file 
FIND macro 

description 93 
reason codes 94 
return codes 93 
use by access method 202 
fixed-length records 

See BLKSIZE operand, RECFM operand 
FLASH operand (SETPRT macro) 
specifying 147 
FLASH operand in SETPRT macro 
modifying 149 
format 

exit list 206 
page 123 
record 

BDAM 35 
BPAM 46 
BSAM 61-63 
QISAM 70 
QSAM 87-88 
forms alignment 147 
forms control buffer 
See FCB 

forms overlay frame 147 
forward space (CNTRL macro) 27 


FREE option 

CLOSE macro 22 
FREEBUF macro 

description 95 

relationship to 
BUILD macro 13 
GETBUF macro 102 
use by access method 202 
FREEDBUF macro 

description 96 
use by access method 202 
used with BISAM 39, 181 
FREEP00L macro 

description 97 
relationship to 
CLOSE macro 21 
GETP00L macro 103 
use by access method 202 
ful1-track-index write option 69 
fulIword boundary alignment 
See BFALN operand 
FUNC operand CDCB macro) 

BSAM 54-55, 56 
QSAM 79-80, 81 




GET macro 

ASCII translation 99 
data mode (QSAM) 84, 100 
for 

QISAM 98 
QSAM 99-101 
locate mode 

QISAM 68, 98 
QSAM 84, 99 
move mod© 

QISAM 68, 98 
QSAM 85, 100 

restriction when using CNTRL 
macro 26, 84 
relationship to 
CNTRL macro 26 
EODAD (see EODAD operand) 1 
PDAB macro 119 
RELSE macro 141 
SETL macro 142 
specified in DCB macro 
QISAM 68 
QSAM 84 
TYPE=P 101 

use by access method 202 
get routine exits 98, 101 
GETBUF macro 

description 102 
relationship to 
BUILD macro 13 
FREEBUF macro 95 
use by access method 202 
GETPOOL macro 

description 103 
relationship to 

BFALN operand 29 
BUFCB operand 30 
BUFL operand 31 
BUFNO operand 31 
FREEPOOL macro 97 
use by access method 202 
glossary 229-235 


k._ ...k 
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IHADCB dummy section 89 
IHAPDAB dummy section 120 
image 

data protection 
BSAM 55, 57 
QSAM 80, 81 

FCB (forms control buffer) 58, 83, 
146 

UCS (universal character set) 149 
image mode, card 
BSAM 54 
QSAM 79 

independent overflow area 69 
index 

cylinder 68 
highest-level 

address of 39 
size of 40 
master 

number of tracks per level 68 
specified in OPTCD operand (DCB 
macro) 68 

indicators, status 200 
INIT operand (SETPRT macro) 147 
INOUT operand (OPEN macro) 112 
input data sets 
closing 22-23 
opening 111-115 
READ or GET specified in DCB 
BDAM 33 
BISAM 39 
BPAM 45 
BSAM 59 
QISAM 68 
QSAM 84 
reading 

BDAM 130-132 
BISAM 132-133 
BPAM 135-136 

BSAM (read a direct data set) 137 
BSAM (read a sequential data 
set) 135-136 
QISAM 98 
QSAM 99-101 

testing completion of I/O operations 
CHECK 19 
WAIT 176-177 
used with GET macro 99 
INPUT operand (OPEN macro) 112 
INPUT option 

OPEN macro 111 
input/output devices 

card reader and card punch 26 
control of 

CNTRL macro 26-28 
PRTOV macro 123 
magnetic tape 26 
printer 26 
3505 card reader 

DCB macro 56, 80 
3525 card punch 
CLOSE macro 21 
CNTRL macro 26 
DCB macro 56, 57, 80 
OPEN macro 111 
input/output error analysis 
See SYNAD exit routine 
input/output operations 
completion of 19, 176 
status indicators 200 


interface, DCB 

for BPAM 218-219 
for BSAM 218-219 
for card reader, card punch 216 
for direct access devices 215 
for magnetic tape 216 
for printer 216 
for QSAM 220 
interface, logical record 
See LRI 

ISAM (indexed sequential access method) 
See also BISAri, QISAM 
general description 37, 64 
macro instructions used with 202 
symbolic field names in DCB 222-225 
ISO/ANSI/FIPS control characters 
defined 210 


m 


JCL (job control language) 

DD statement, relationship to 
CLOSE macro 21 

data control block (see DDNAME 
operand) 1 
DCB macro 32, 44 
GET macro 99 
NOTE macro 109 
OPEN macro 111-112 
POINT macro 121 
PUT macro 125 

LABEL parameter to request ASCII 
translation 19, 99, 127 
JFCBE (job file control block extension) 
exit list format 206 
EXLST operand 83 

relationship with OPTCD parameter 61 
job step 

checkpoint restart 20 




key (BDAM) 

address 131 
reading 130 

specifying as search argument 34 
specifying length 32 
writing 179 
key (ISAM) 

address 133, 181 
reading 133 
specifying length 67 
specifying position 70 
writing 181 
key length 

See KEYLEN operand 
key position, relative (RKP) 70 
key, record 

PUT macro 125 
READ macro 133 
RKP (relative key position) 
operand 70 
SETL macro 142-143 
WRITE macro 181 
KEYLEN operand (DCB macro) 

BDAM 32 
BPAM 45 
BSAM 58 
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QISAM 67 


m 


LABEL operand 

DD statement 19, 99, 127 
labels 

See also EXIST operand 

exit list format 206 
input data set 86, 92, 111 
output data set 

CLOSE macro ■ 21 
FEOV macro 92 
OPEN macro 111 
user, processing 58, 83 

LEAVE option 

CLOSE macro 21 
FEOV macro 92 
OPEN macro 113 
length 
buffer 

See BUFL operand 

key 

See KEYLEN operand 
record 

See LRECL operand 
levels of master index (ISAM) 68 
LIMCT operand (DCB macro) 33 
line spacing, printer 
CNTRL macro 26-28 
PRTSP operand (DCB macro) 

BSAM 53-54 
QSAM 78 
LINK macro 

relationship with BLDL macro 8 
list address 

data management 25, 118, 162 
list form 

BUILDRCD macro 17 
CLOSE macro 24 
OPEN macro 116 
READ macro 138 
SETPRT macro 157-158 
WRITE macro 187 
list format, exit 206 
LOAD macro 

relationship with BLDL macro 8 
loading 

FCB (forms control buffer) 146 
UCS (universal character set 
buffer) 149 
locate mode 

BUILDRCD macro 15 
GET macro 

QISAM 98, 99 
QSAM 99 
PUT macro 

QISAM 125 
QSAM 127 

specified in DCB macro 
QISAM 68 
QSAM 84 

logical record interface 
See LRI 

logical record length 

See also LRECL operand 
GET macro 99 
PUT macro 125, 127 
PUTX macro 129 
LONG operand 

WAIT macro 177 


lower limit of sequential retrieval 
(SETL macro) 142-143 
LRECL operand (DCB macro) 

BPAM 45 
BSAM 58 
QISAM 67 
QSAM 83 

LRI (interface logical record) 
invoked by BUILDRCD macro 15 
LRI (logical record interface) 
provided by QSAM 75 
specifying in DCB macro (BFTEK) 74 
used with PUT macro 127 


DD 


machine control characters 
BPAM 46 
BSAM 62 

description 208-209 
QSAM 87 

MACRF operand (DCB macro) 

BDAM 33-34 
BISAM 39 
BPAM 45 
BSAM 59 
QISAM 67 
QSAM 84 

macro use by access method 202 
macros^ data management 
BLDL 8 
BSP 11 
BUILD 13-14 
BUILDRCD 

execute form 18 
list form 17 
standard form 15-16 
CHECK 19 
CHKPT 
CLOSE 

execute form 25 
list form 24 
standard form 21-23 
CNTRL 26-28 
coding 1-3 
DCB for 

BDAM 29-36 
BISAM 37-41 
BPAM 42-47 
BSAM 48-63 
QISAM 64-71 
QSAM 72-88 
DCBD 89-90 
ESETL 91 
FEOV 92 
FIND 93 
FREEDBUF 96 
FREEPOOL 97 
GET for 

QISAM 98 
QSAM 99-101 
GETBUF 102 
GETPOOL 103 
NOTE 109 
OPEN 

execute form 118 
list form 116 
standard form 111-115 
PDAB 119 
PDABD 120 
POINT 121-122 
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PRTOV 123-124 
PUT for 

QISAM 125 
QSAM 127-128 
PUTX 129 
READ for 

BDAM 130-132, 137 
BISAM 132-133 
BPAM 135-136 
BSAM 135-137 
execute form 139 
list form 138 
RELEX 140 
RELSE 141 
SETL 142-143 
SETPRT 

execute form 161 
list form 157-158 
standard form 144-156 
STOW 162-165 
SYNADAF 166-168 
SYNADRLS 169 
TRUNC 175 
WAIT 176-177 
WRITE for 

BDAM 178-180, 184-186 
BISAM 181-182 
BPAM 183 
BSAM 183 
execute form 188 
list form 187 
XLATE 189 
magnetic tape 
backspace 

BSP macro 11 
CNTRL macro 26 
considerations with 
BSP macro 11 
CLOSE macro 21-23 
POINT macro 121-122 
density 53, 78 
end-of-file, ignored 61, 86 
FEOV (final volume positioning) 
macro 92 
forward space 26 
interface in DCB 216 
read backward 135 
recording technique 53, 78 
restriction 

NOTE macro 109 
POINT macro 121 

short error recovery procedure 61, 

86 

Mass Storage System 
See MSS 
master index 

highest level in storage 

address of storage area 39 
size of storage area 40 
number of tracks per level 68 
option specified in DCB 68 
MAXDCB operand 

PDAB macro 119 
member, partitioned data set 

complete a list with BLDL macro 8-10 
locate beginning with FIND macro 93 
update directory with STOW 
macro 162-163 
MF operand 

BUILDRCD macro 17, 18 
CLOSE macro 25 
OPEN macro 116, 118 
READ macro 138, 139 
SETPRT macro 158, 161 


WRITE macro 187, 188 
mode 

See also MACRF operand 
card image 
BSAM 54 
QSAM 79 

data (QSAM) 84, 100, 128 

l0C QISAM 68, 98, 125 
QSAM 84, 99, 127 
move 

QISAM 68, 98, 125 
QSAM 85, 100, 128 
optical mark read 
BSAM 56 
QSAM 80 

read column eliminate 
BSAM 56 
QSAM 80 

scan (QISAM) 68 
MODE operand (DCB macro) 

BSAM 54, 55 
QSAM 79, 80 

MODIFY operand (SETPRT macro) 148 
modifying a parameter list 
BUILDRCD macro 18 


CLOSE macro 

25 


OPEN macro 

116, 118 


READ macro 

139 


SETPRT macro 

159 


WRITE macro 

188 


move mode 

QISAM 

GET macro 

98 


PUT macro 

125 


specified 

in DCB 

68 

QSAM 

GET macro 

100 


PUT macro 

128 


specified 

in DCB 

85 


restriction 26, 85 
MSGDISP macro 

return codes 108 
MSHI operand (DCB macro) 39 
MSS (Mass Storage System) 
device capacity 203 
in DCB 215, 218, 220 
MSWA operand (DCB macro) 39 
multiline print option 
BSAM 55, 56 
QSAM 80, 81 

MVS/370 compatibility 23, 114 




NCP operand (DCB macro) 

BISAM 40 
BPAM 45 
BSAM 59 

next address feedback 
BDAM (creating) 185 
BDAM (existing) 131 
NOTE macro 

description 109 

relationship with POINT macro 109 
restriction 

with BSP macro 11 
return codes 110 
specified in DCB 
BPAM 45 
BSAM 59 
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use by access method 202 
NTM operand (DCB macro) 69 
number of channel programs 
See NCP operand 

number of tracks per index level 
See NTM operand 



OMR (optical mark read) mode 
BSAM 56 
QSAM 80 
on-line printer 
control 26-28 
skipping 208-209 
spacing 208-209 
online printer 
skipping 123 
spacing 123 
open exit 

See DCB open exit routine 
OPEN macro 

execute form 118 
list form 116 
MVS/370 compatibility 114 
relationship to 
CLOSE macro 21 
DDNAME operand 1 
FEOV macro 92 
GETPOOL macro 103 
NOTE macro 109 
READ macro 135 
WRITE macro 183 
standard form 111-115 
TYPE 113> 116/ 118 
use by access method 202 
open operation/ testing 113-115 
open options 111-113 
operands 

substitution for 4 
OPTCD operand 
in DCB macro 
BDAM 34 
BISAM 40 
BPAM 46 
BSAM 61 
QISAM 69 
QSAM 85-86 
in SETPRT macro 148 
optical mark read mode 
See OMR 
option codes 

See OPTCD operand 
organization/ data set 
See access methods 
OUTIN operand (OPEN macro) 112 
OUTINX operand (OPEN macro) 112 
output data set 
closing 21-23 
opening 111-115 

WRITE or PUT specified in DCB macro 
BDAM 34 
BISAM 39 
BPAM 45 
BSAM 59 
QISAM 68 
QSAM 85 
writing 

BDAM 178-180 
BISAM 181-182 
BPAM 183 


BSAM 183 

BSAM (write to a direct data 
set) 184-185 
QISAM 125/ 129 
QSAM 127-128 

OUTPUT operand (OPEN macro) 112 
overflow 
area 

independent 69 
channel 123 

exit address (PRTOV macro) 123 
printer carriage 123 
overflow/ track 
BDAM 35 
BPAM 46 
BSAM 62 
QSAM 87 

restrictions 87 

chained scheduling 46/ 87 
with OPTCD operand 87 
overlay frame 147 
overprinting 123 



parallel data access block 
See PDAB 

parameter list construction 
BUILDRCD macro 17 
CLOSE macro 24 
OPEN macro 116 
READ macro 138 
SETPRT macro 157-158 
WRITE macro 187 
parameter list modification 
BUILDRCD macro 18 
CLOSE macro 25 
OPEN macro 118 
READ macro 139 
SETPRT macro 159-161 
WRITE macro 188 
partitioned data set 

macro instructions used with 202 
relationship to 

BLDL macro 8-10 
FIND macro 93 
STOW macro 162-163 
PDAB (parallel data access block) 
constructing 119 
generating a DSECT 120 
symbolic field names 228 
PDAB macro 

use by access method 202 
use of 119 
PDABD macro 

symbolic field names 228 
use by access method 202 
POINT macro 

description 121-122 
relationship to 
NOTE macro 109 
restriction 

with BSP macro 11 
return codes 122 
specified in MACRF operand 
BPAM 45 
BSAM 59 

use by access method 202 
position feedback 

current block 130/ 179 
next block 131/ 184 


c 
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position, relative key (RKP) 70 
positioning volumes 

using CHECK macro 19 
using CLOSE macro 21-23 
using FE0V macro 92 
using OPEN macro 111 
using POINT macro 121-122 
prefix, block 

See also BUFOFF operand 
effect on block length 50, 76 
effect on buffer length 51, 76 
effect on data alignment 49, 73 
print option for 3525 
BSAM 55, 57 
QSAM 79, 81 
Print Services Facility 
See PSF 
printer 

carriage control 26-124 
character set buffer loading 149 
control characters 208-209 
control information 144 
control tape 123-124 
forms control buffer loading 146 
skipping 26-28, 208-209 
spacing 26-209 
program, channel 
BISAM 40 
BPAM 45 
BSAM 59 

protection option, data 
BSAM 55, 57 
QSAM 80, 81 
PRTOV macro 

description 123 
use by access method 202 
PRTSP operand (BCB macro) 

BSAM 53-54 
QSAM 78 

PSF (Print Services Facility) 

relationship with SYNAB routine 63 
SYS1.FDEFLIB 144 
SYS1« FONTLIB 144 
SYS1.PDEFLIB 144 
punch, card 54, 79 
PUT macro 

data mode (QSAM) 84, 128 
for 

QISAM 125 
QSAM 111-113 
locate mode 
QISAM 125 
QSAM 127 
move mode 

QISAM 125 
QSAM 128 
relationship with 
PRTOV macro 123 
SYNADAF macro 166 
TRUNC macro 175 
specified in DCB macro 
QISAM 68 
QSAM 84 

use by access method 202 
PUTX macro 

description 129 
output mode 129 

relationship with TRUNC macro 175 
specified in DCB macro 
QISAM 68 
QSAM 85 

update mode 129 

use by access method 202 


GD 


QISAM (queued indexed sequential access 
method) 

general description 64 
macro instructions used with 202 
symbolic field names in DCB 222-225 
QSAM (queued sequential access method) 
general description 72 
macro instructions used with 202 
symbolic field names in DCB 211-221 
queued access technique 
See QISAM and QSAM 


[~R~ 


RDBACK operand (OPEN macro) 112 
read backward 

magnetic tape 112, 135 
read column eliminate mode 
BSAM 56 
QSAM 80 
READ macro 

execute form 139 
for 

BDAM 130-132, 137 
BISAM 132-133 
BPAM 135-136 
BSAM 135-137 
list form 138 
relationship to 

BFTEK operand 30, 49 
BUFL operand 31 
CHECK macro 19 
EODAD operand 44, 57 
FIND macro 93 
FREEDBUF macro 96 
KEYLEN operand 32 
LIMCT operand 33 
MACRF operand 33, 39, 45, 58-59 
NCR operand 40, 45, 59 
OPTCD operand 34 
POINT macro 121 
RELEX macro 140 
WAIT macro 176 
WRITE macro 178-180 
specified in DCB macro 
BDAM 33 
BISAM 39 
BPAM 45 
BSAM 58 
standard form 
BDAM 130-132 
BISAM 132-133 
BPAM 135-136 

BSAM (read direct data set) 137 
BSAM (read sequential data 
set) 135-136 
use by access method 202 
reason codes 

BLDL macro 10 
BSP macro 12 
FIND macro 94 
SETPRT macro 155 
STOW macro 163-165 
RECFM operand (DCB macro) 

BDAM 35 
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BPAM 46 

BSAM 61-63 
QI5AM 70 
QSAM 87-88 

record 

area 

construction 135 
deletion option CISAM) 69 
format Csee RECFM operand) 1 
length (see LRECL operand) 1 
descriptor word# relationship with 
BSAM 51 
QISAM 65# 67 
QSAM S3 
physical 

See BLKSIZE operand 
retrieval 98-101, 130-137 
segment 127 

variable-length# spanned 16# 75 
writing 125-129# 178-185 
recording density# magnetic tape 
BSAM 53 
QSAM 78 

recording technique# magnetic tape 
BSAM 53 
QSAM 78 
register 

contents on entry to 

DCB exit routine 207 
overflow exit routine 123 
SYNAB exit routine 197-199 
DCBD base 89-90 
usage rules 5 
relative addressing 
BDAM 35 
FIND macro 93 
POINT macro 122 
relative key position 70 
release 

buffer 95 
buffer pool 97 

dynamically acquired buffer 96 
exclusive control 179 
QSAM buffer 141 
RELEX macro 

description 140 

relationship to MACRF operand 34 
return codes 140 
use by access method 202 
relexp defined 5 
relocatable expression defined 5 
RELSE macro 

use by access method 202 
use of 141 

reorganization statistics (ISAM) 69 
REREAD option 

CLOSE macro .21 
OPEN macro 113 

restore data control block 21-23 
return codes 

BLDL macro 10 
BSP macro 12 
FIND macro 93 
MSGDISP macro 108 
NOTE macro 110 
POINT macro 122 
RELEX macro 140 
SETPRT macro 150-154 
STOW macro 163-165 
SYNADAF macro 167 
SYNADRLS macro 169 
WRITE macro 186 
RETURN macro 

relationship with SYNAB operand 


BDAM 36 

BISAM 41 /T~ X 

BPAM 47 (, ,) 

BSAM 63 

QISAM 71, 210 
QSAM 88 
REWIND option 

CLOSE macro 21 
FE0V macro 92 
REXMXT operand 

SETPRT macro 149 

RKP (relative key position) operand 70 
RKP operand (DCB macro) 67 

R0 record 

See capacity record 



save area 

general register requirements 5 
SYNADAF requirement 166 
SYNADRLS macro 169 
scan mode 68 
search 

partitioned data set directory 
BLDL macro 8-10 
FIND macro 93 
type of 

BDAM 33 
QISAM 68 
search argument 
BDAM 33 

QISAM 67 x % 

search direct option 86 
search option# extended 34 
segment 

buffer 125 

descriptor word 50# 137 
interface# restriction 15 
work area 31 
sequential access methods 
See access methods 
services# optional 
BDAM 34 
BPAM 46 
BSAM 59-60 
QISAM 69 
QSAM 85 
SETL macro 

description 142-143 
relationship to 
ESETL macro 91 
GET macro 98 
use by access method 202 
SETPRT macro 

blocking/unblocking data checks 144 
execute form 159-161 
list form 157-158 

printing by print train or band 144 
reason codes for 3800 155 

return codes 150-154 
selecting DCS and FCB images 144 
standard form 144-156 
use by access method 202 
simple buffering 74 
skipping# printer 

See also spacing# printer 
CNTRL macro 26 
control characters 208-209 
SMSI operand (DCB macro) 40 
SMSW operand (DCB macro) 41 
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space, magnetic tape 
backward 11, 26 
forward 26 
spacing, printer 

See also skipping, printer 
CNTRL macro 26 
control characters 208-209 
specified in DCB macro 
BSAM 53 
QSAM 78 
spanned records 

See variable-length, spanned records 
STACK operand (DCB macro) 

BSAM 54, 56 
QSAM 79, 81 
stacker selection 

CNTRL macro 26-28 
control characters 208-209 
specified in DCB macro 
BSAM 54, 56 
QSAM 79, 81 
standard blocks 

restriction with OPT CD operand 87 
specifying 62, 87 

statistics reorganization (ISAM) 69 
status 

following an I/O operation 190 
indicators 200 
STOW macro 

description 162-165 
directory action 163 
reason codes 163 
return codes 163-165 
use by access method 202 
summary of changes vii 
switching volumes 
CHECK macro 19 
FEOV macro 92 
symbol defined 4 
SYNAD exit routine 
exception codes 
BBAM 194 
BISAM 191 
QISAM 193 
register contents 
EDAM 199 
BISAM 198 
BPAM 199 
BSAM 199 
QISAM 197 
QSAM 199 
relationship with 
CHECK macro 19 
CNTRL macro 28 

DCB macro (see SYNAD operand) 1 
GET macro 98, 101 
POINT macro 122 
PUT macro 126, 128 
PUTX macro 129 
SETL macro 143 
SYNADAF macro 167 
specifying in DCB macro 
BDAM 36 
BISAM 41 
BPAM 47 
BSAM 63 
QISAM 71 
QSAM 88 

status indicators 
BDAM 200 
BPAM 200 
BSAM 200 
QSAM 200 

SYNAD operand (DCB macro) 


BDAM 36 
BISAM 41 
BPAM 47 
BSAM 63 
QISAM 71 
QSAM 88 
SYNAD routine 

relationship with PSF (Print Services 
Facility) 63 
SYNADAF macro 

description 166-167 
relationship with SYNADRLS macro 169 
return codes 167 
use by access method 202 
SYNADRLS macro 

description 169 

relationship with SYNADAF macro 166 
return codes 169 
use by access method 202 
SYNCDEV macro 170 
synchronizing 1/0 operations 19, 

176-177 

synchronous error exit 
See SYNAD operand 
SYSIN DD statement 
BSP macro 11 
CNTRL macro 26 
FEOV macro 92 
MACRF operand 59 
NOTE macro 110 
OPEN macro 111, 112 
OPTCD operand 60, 86 
PUTX macro 129 
RECFM operand 88 
RELSE macro 141 
SYSOUT DD statement 
BSP macro 11 
CNTRL macro 26 
FEOV macro 92 
MACRF operand 59 
MOTE macro 110 
OPEN macro 111, 112 
OPTCD operand 60, 86 
POINT macro 122 
PUTX macro 129 


[l 


table reference character 
See TRC 

tape density, magnetic 
BSAM 53 
QSAM 78 

tape error recovery procedure 
BSAM 61 
QSAM 86 

tape recording technique 
BSAM 53 
QSAM 78 
temporary close 
of data set 21 
termination, abnormal 
check routine 19 
end-of-data 

See EODAD operand 
uncorrectable I/O error 
See SYNAD operand 

testing completion of I/O 19, 176-177 
testing for open data set 113-115 
totaling exit, user 
BSAM 58 
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list format 206 
QSAM 83 

track addressing, relative 
BDAM 35 
FIND macro 93 
POINT macro 122 
track index write, full 69 
track overflow 
BDAM 35 
BPAM 46 
BSAM 62 
QSAM 87 
restrictions 

chained scheduling 46, 87 
with OPTCD operand 87 
translation 

ASCII to EBCDIC 
CHECK macro 19 
GET macro 99 
XLATE macro 189 
EBCDIC to ASCII 
PUT macro 127 
WRITE macro 183 
XLATE macro 189 
paper tape code 53 
transmittal modes 

See also MACRF operand 
data 84, 100, 128 
locate 98, 99, 127 
move 98, 100, 125, 128 
specifying 68 

TRC (table reference character 
3800) 60, 85, 148 

TRTCH operand (DCB mac^o) 

BSAM 53 
QSAM 78 
TRUNC macro 

description 175 
specified in QSAM DCB 85 
use by access method 202 
truncating a block 175 
TYPE=P (GET macro) 101 
TYPE=T (CLOSE macro) 21-23 


U 


U-format records 
BDAM 35 
BPAM 47 
BSAM 62 
QSAM 87 

UCS (universal character set) 

unblocking data checks 60, 86 
UCS operand (SETPRT macro) 149 
unblocking data checks 
BSAM 60 
QSAM 86 

SETPRT macro 149 
uncorrectable I/O errors 
See SYNAD operand 
undefined length records 
See U-format records 
universal character set 
See UCS 

unmovable data sets 
See DSORG operand 
UPDAT operand 

OPEN macro 112, 121, 135 
restriction with POINT macro 121 
restriction with READ macro 135 


updating partitioned data set 
directory 162-163 
user 

data in partitioned data set 
directory 

BLDL macro 8-10 
STOW macro 162-163 
label exit 
BSAM 58 

list format 206 
QSAM 83 
totaling exit 
BSAM 58 

list format 206 
QSAM 83 

USING statement requirement 
DCBD macro 89-90 
PDABD macro 120 


V 


V-format records 
BDAM 35 
BPAM 47 
BSAM 62 
QISAM 70 
QSAM 87 

validity checking 
BDAM 35 
BPAM 46 
BSAM 61 
QISAM 69 
QSAM 86 

variable-length record (format-V) 
See V-format records 
variable-length, spanned records 
See also V-format records 
restriction with 
FEOV macro 92 
GET macro 99 
OPTCD operand 60, 87 
using BFTEK 30, 49, 75 
using BUILDRCD macro 16 
using PUT macro 127 
writing for BDAM 184 
volume 

forcing end of 92 
volume positioning 
CHECK macro 19 
CLOSE macro 21-23 
FEOV macro 92 
OPEN macro 111 
POINT macro 121-122 
volume switching 19, 92 



WAIT macro 

description 176-177 
relationship to 
CHECK macro 19 
MACRF operand 33 
READ macro 130, 133 
WRITE macro 178, 181 
use by access method 202 
work area 
for BISAM 

address of 41 
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size of 41 
WRITE macro 

execute form 188 
list form 187 
relationship to 

BUFL operand 31 
CHECK macro 19 
KEYLEN operand 32 
LIMCT operand 33 
MACRF operand 33, 39, 45, 59 
NCP operand 40, 45, 59 
OPTCD operand 34 
POINT macro 121 
PRTOV macro 123 
READ macro 130, 133, 135 
RELEX macro 140 
SYNADAF macro 166 
WAIT macro 176 
return codes 186 
specified in DCB macro 
BDAM 33-35 
BISAM 39 
BPAM 45 
BSAM 58-59 
standard form 

BDAM (create with BSAM) 184-186 
BDAM (existing) 178-180 
BISAM 181-182 
BPAM 183 
BSAM 183 


testing for completion 19, 176-177 
use by access method 202 
WTOR macro 

relationship with SETPRT macro 147 


H 

XCTL macro 

relationship with BLDL macro 8 
XLATE macro 

use by access method 202 
use of 189 

XLRI (extended logical record interface) 
BUILDRCD macro 15 
GET macro 
use 

QSAM 84 


Numerics 


3480 magnetic tape subsystem 
record length 203 
3800 Model 3 printer 63, 144 
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